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ABSTRACT 


A  system  of  data  acquisition  and  reduction  programs,  TXCO 
is  described.  The  programs  were  written  for  the  transonic  com¬ 
pressor  test  facility  at  the  NPS  Turbopropulsion  Laboratory 
which  is  served  by  an  HP1000  series  computer  operating  under 
RTE-IVB.  However,  the  structure  of  the  program  system  (strict 
separation  of  acquisition  and  reduction,  store  raw  data  as  ac¬ 
quired,  routines  to  verify  the  data  system,  etc.)  is  of  more 
general  interest,  and  allows  the  system  to  be  applied  to  any 
test  rig.  The  introduction  of  a  "program  control  array"  ac¬ 
celerates  execution  and  provides  means  for  communication  between 
programs,  which  otherwise  execute  individually. 
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1.  INTRODUCTION 


This  report  describes  a  system  of  data  acquisition  and 
reduction  programs,  designed  to  acquire  data  from  the  Turbo¬ 
propulsion  Laboratory's  transonic  compressor  test  facility. 

The  computer  hardware  consists  of  an  HP21MX  mini  computer 
with  various  peripheral  devices.  Both  steady-state  and  high 
speed  data  are  required  to  be  taken  as  scheduled  during  a  com¬ 
pressor  test.  The  entire  hardware  configuration  is  shown  in 
Fig.  1. 

At  the  outset,  the  system  of  computer  programs  was 
required  to  do  the  following: 

(ifr  Control  via  the  "Interface  Bus",  measurement  devices 
such  as  Scanivalves  (S/V's),  Scani valve  controllers, 
scanners,  digital  voltmeters  (DVM) ,  digital  counters, 
analog  to  digital  converters,  and  the  acquisition 
timing  device  called  PACER. 

(ii)-  Perform  data  acquisition  as  efficiently  as  possible, 
store  data  in  disc  files,  and  document  the  test  con¬ 
ditions  . 

(iii)  Provide  a  means  to  check  the  data  system  (e.g.,  SUB¬ 
ROUTINE  CHECK,  Section  6.2). 

(iv)  Provide  a  means  to  verify  the  raw  data  (e.g.,  SUB¬ 
ROUTINE  PICTR,  called  from  SUBROUTINE  PACER,  Section 
4.5.  PICTR  uses  the  auxiliary  terminal  to  display 
the  acquired  wave  form)  . 
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(v)  Provide  a  means  for  the  operator  to  communicate 
interactively.  Since  the  operator  at  the  system 
console  is  usually  the  investigator  or  research 
engineer  and  not  a  computer  specialist,  the  program 
flow  and  the  programmed  interactive  messages  were 
required  to  be  clear,  logical  and  easy  to  under¬ 
stand. 

The  demand  to  speed  up  the  data  acquisition  conflicted 
with  the  requirement  of  keeping  the  dialogue  between  program 
and  operator  clear.  Interactive  programs  necessarily  have 
extensive  input-output  operations  which  slow  down  the  execu¬ 
tion  of  the  program.  A  reasonable  compromise  between  these 
two  choices  was  the  introduction  of  a  "program  control  array" , 
CNTRL,  whose  elements  -  once  pre-assigned  -  relieved  the  opera¬ 
tor  from  entering  routine  decisions  (e.g.,  telling  the  sub¬ 
routines  FREER  and  PACER  how  many  Kulite  signals  are  to  be 
recorded  and  where  to  locate  them;  see  Appendix  A3:  CNTRL <23/9) 
through  CNTRL(246)).  Additionally  the  control  array  provides 
accounting  data  (e.g.,  the  sequential  number  for  raw  data 
files) . 

In  the  present  report  complete  documentation  is  given 
of  the  program  system  "TXCO".  The  system  consists  of  a  "father 
program,  TXCO0,  which,  in  operation,  calls  on  a  series  of  "son" 
programs  TXC01,  TXC02  or  TXCO 3 . 

The  father  program,  TXCOjfl,  offers  the  investigator  a 


menu  of  program  branches  to  be  scheduled  according  to  a  single 
digital  entry  as  follows: 


ABSRV 


1.  Survey  using  the  type  'A'  and  the  type  'B' 
Kulite  semiconductor  pressure  probes  (Ref  1 
and  2) . 

2.  On-line  calibration  type  'A'  and  type  'B' 
probe. 

3.  Acquisition  of  high  speed  data  through  the 
fast  A/D  converter,  which  is  operated  in 
free  run  mode. 

4.  Acquisition  of  high  speed  data  through  the 
fast  A/D  converter,  which  now  is  controlled 
by  a  timing  device,  the  PACER  (Ref  3) . 

5.  Radial  flow  survey  using  a  temperature- 
pneumatic  four  hole  COMBINATION  PROBE. 

6.  Acquisition  of  all  steady  state  data. 

7.  Check  the  instrumentation. 

8.  Change  the  program  control  array. 

9.  Reduce  high  speed  data  from  the  'A'  -  'B' 
probe  system.  REDAB  uses  the  data  gathered 
by  ABSRV. 

10.  Reduce  flow  data  from  the  combination  probe. 
REDCO  uses  the  data  gathered  by  COMB. 

11.  Reduce  steady  state  data  and  add  this 
operating  point  to  the  compressor  per¬ 
formance  map.  REDST  uses  the  data  gathered 
by  STDY. 


CALIB 

FREER 

PACER 

COMB 

STDY 

CHECK 

CHNGE 

REDAB 

REDCO 

REDST 
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The  investigator  selects  the  desired  program  module  by 
entering  the  appropriate  number  between  1  and  11.  Entering 
12  halts  the  program.  Subroutines  ABSRV,  CALIB,  FREER  and 
PACER  -  they  handle  the  high  speed  data  -  are  contained  in 
PROGRAM  TXC01  (Section  4) .  Subroutines  COMB  and  STDY  -  they 
handle  the  steady  state  data  -  are  contained  in  PROGRAM  TXC02 
(Section  5) .  Subroutines  CHECK  and  CHNGE  -  they  are  used  by 
the  operator  to  control  the  program  flow  and  verify  the  data 
system  -  are  contained  in  PROGRAM  TXC03  (Section  6) .  After 
the  select  code  is  entered,  and  verified  either  by  entering 
an  additional  parameter  or  tapping  the  RETURN  key,  the 
"father"  program  suspends  its  operation  while  the  desired 
"son"  program  (TXCOl,  TXC02  or  TXC03 )  executes.  The  entire 
TXCO-system  works  interactively  with  the  operator  and  displays 
as  many  informative  messages  as  possible. 

The  program  descriptions  in  the  following  sections  ex¬ 
plain,  in  user-manual  form,  how  to  handle  each  subroutine. 

The  descriptions  often  resemble  each  other,  which  in  the  in¬ 
terests  of  utility  was  deliberately  not  avoided.  A  compressor 
failure  prevented  the  author  from  using  the  programs  for  com¬ 
pressor  test  runs.  The  report  is  therefore  presented  with 
only  a  very  short  section  of  conclusions  and  recommendations. 
The  program  system  is  not  considered  to  have  been  perfected, 
since  little  experience  has  been  gained  with  its  operation 
other  than  in  "dry"  runs. 
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2.  GUIDE  TO  THE  PROGRAM  DESCRIPTIONS 

Detailed  descriptions  of  the  programs  are  given  in  the 
following  sections.  First,  in  Section  3,  a  flow  chart  and 
listing  are  given  for  the  father  program  TXCO0 .  Then,  the 
descriptions  given  in  Sections  4  through  6  (of  TXC01  through 
TXC03)  are  structured  as  follows: 

PROGRAM  XXXX  (or  SUBROUTINE  XXXX) :  PURPOSE: 

A  brief  description  of  the  purpose  of  this  particular  program 
module  is  given,  and  its  capabilities  and  restrictions  are 
noted. 

ARGUMENTS :  If  the  program  module  is  a  subroutine,  which  is 
called  with  parameters,  the  parameter  list  is  explained. 

EXTERNALS :  The  externals  of  each  program  module  are  listed. 

This  information  is  necessary  when  loading  the  relocatable 
binary  version  (indicated  by  the  %  sign  as  first  character  of 
the  disc  file  name  under  the  RTE-IV  operating  system) . 

COMMON  BLOCKS:  The  members  of  the  COMMON  blocks  and  their 
length  in  32-bit  words  are  listed  and  explained. 

MNEMONIC  ABBREVIATIONS :  The  mnemonic  acronyms  which  each  pro¬ 
gram  module  uses  are  listed  and  explained. 

ERROR  MESSAGES :  If  a  salvageable  error  occurs  during  the 
execution  of  a  program  module,  an  error  message  with  suggestions 
for  how  to  resolve  the  problem  are  described. 
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PROCEDURE;  This  subsection,  which  should  always  be  used 
together  with  the  flow  chart,  describes  how  to  go  through 
the  program  module.  Hints  for  how  to  utilize  all  program 
features  are  given. 


DATA  FILE:  The  date  file  name  is  explained  for  all  program 
modules,  which  save  data.  The  first  two  characters  are 
typical  for  the  type  of  data  which  the  file  contains;  for 
example, 


Data  File  Name 
Tlrrss 
T2rrss 
T3rrss 
T4rrss 


Type  of  Data 
' A ' - ' B '  probe  survey 
free  run  sample 
paced  run  sample 
all  raw  steady  state  data 
combination  probe  survey 


T5rrss 
rr  —  #  of  test  run 
ss  —  sequential  #  of  data  file  type 


Created  By 
ABSRV 
FREER 
PACER 
STDY 
COMB 


The  following  modules  are  synchronized  through  the  data  file: 


Data  Reduction  Program  File  Name 


REDAB 

Tlrrss 

REDST 

«-*•  T4rrss 

REDCO 

T5rrss 

Data  Acquisition  Program 
ABSRV 
STDY 
COMB 


VARIABLES :  All  variables,  their  type  (REAL  or  INTEGER)  and 
length  (only  if  the  variable  is  used  as  an  array) ,  together 
with  a  brief  description,  are  listed. 
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The  flow  chart  and  a  FORTRAN-IV  compiler  listing  of 
the  program  module  complete  each  description. 

The  source  codes  of  programs  TXCO0,  TXC01,  TXC02  and 
TXC03  are  available  in  the  disc  files  &TXCO0,  &TXC01,  &TXC02 
and  &TXC03.  Since  TXC01,  TXC02  and  TXC03  use  common  sub¬ 
routines  and  functions,  the  latter  are  grouped  together  in 
file  &TXCOU,  where  the  "u"  indicates  the  following  "utility" 
program  modules: 

ACQN  Positions  S/V  and  reads  DVM. 

CNTL  Closes  scanner  channel. 

CURVE  Compute  linear  curve  fit. 

ICON  Converts  two-digit  INTEGER  to  ASCIl-string. 

IPORT  Interrogates  S/V. 

PICTR  Use  CRT  to  display  the  acquired  data. 

REWRF  Data  transfer  disc  array. 

RPACE  Triggers  A/D  through  PACER. 

SCANR  Closes  scanner  channel  and  reads  SVM,  counter. 

TIME  Gets  date  and  time  ASCII-string. 

WAIT  Causes  a  defined  time  delay. 

When  loading  %TXC01,  %TXC02  or  %TXC03,  the  relocatable 
binary  utility  file  %TXCOU  must  also  be  loaded  in  order  to 
satisfy  the  externals.  The  modules  of  TXCOU  are  described 
in  Section  7,  but  in  less  detail  than  the  programs  in  Sections 
4  through  6. 
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3.  PROGRAM  TXCOfl 


TZQty  FGQ6AAM  rxcof: 


I/O  ASKtgnmeni. 
U*LOUl/fZS(SXN) 


fatfine  IX 

ix*  aim.  n 9) 


Jfpfifie  QjdSr  fix 
£XCC  <W. 
ICooe  •  3 


iUHMMiH  !■  /  / 

fijrywwf"  g&r* 

onaw  aim  bed, 

m!»  eta*  pie. 

CAL  fiH#F(l,l) 


m 


Sc heduk  £ot» 
firepan*  y  who* 
name  fa  eoobtne 

»  r*w 

CALL  £*EC 


Srrar  Rah**  fiat* 

exec  Call 
Go  to  n 


Oftfiby  an# 
matsay*  a»*/ 
Shau  convex  *Z 
of  A  cmai  f  re> 
g*kts  a(  fhtUmr 
cf  /o>ifut? 
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L9 


Whk  norm  of  sort 
fireQtm*  C. r*Co/) 
mi  h hgtr  army 
P*(S)  r*>*«r*kx). 


CMI  cone 

LHHr£ 


T 


CNTtMsr)'  nuM 


J. 


MrJt  not**  of  Smm 

pngnm  frxcoJ) 
ml  in^r  orroj 

P*G)ff&hAr*HZ) 
CALL  cooe 
UAirgfP*,  //Z) 


24 


25 


awA&iu. 


Vhk  nemne  of  ton 
enmon>  CRfOGo)  | 
wb  /Myer  awy 

pfi(3)(7ben*r*i?h 


CAUL  aooe 
Ujgrre  rpfij  /ni 


3.2.  PROGRAM  LISTING,  TXCO0  (updated  version,  20  September  1982) 
PAGE  0001  FTN .  9i32  AM  MON.,  20  SEP.,  1982 


0001  FTN4 ,L 


0002 

0003 

0004 

000S 

0006 


BLOCK  DATA 
*d0MMON^ / 

INTEGER  I DCB< 144 ) , IFILE( 3 ) , I SIZE ( 2) 
END 


FTN4  COMPILER!  HP92060-16092  REV.  2001  (791101) 
**  NO  WARNINGS  **  NO  ERRORS  ** 

BLOCK  COMMON  FMP  SIZE  - 


001S1 


PAGE  0002  PIN,  9 1 32  Art  MON.,  20  SEP.,  1902 


0  0  07 
0008 
0009 
0010 
0011 


BLOCK  DATA 

*.  /  CIBUF  /  IFUF < 1664) 
COMMON  /  CIBUF  /  IBUF 
INTEGER  IBUF ( 1664) 

END 


FTN4  COMPILER-.  HP92060-16092  REV.  2001  (791101) 
**  NO  WARNINGS  **  NO  ERRORS  ** 

BLOCK  COMMON  CIBUF  SIZE  ■  01664 
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PAGE  0003  FTN.  9:32  AH  MON . ,  20  SEP 

0012  BLOCK  DATA 

0013  *,  /  CONTR  /  CNTRL<256> 

0014  COMMON  /  CONTR  /  CNTRL 

0015  INTEGER  CNTRL<256> 

0016  END 

FTN4  COMPILER:  HP92060-16092  REV .  2001 
*«  NO  WARNINGS  **  NO  ERRORS  ** 

BLOCK  COMMON  CONTR  SIZE  ■  002S6 


. ,  1982 


(791101) 
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PACE  0004  ETN. 


9  !  32  AM  MON  , 


20  SEP  , 


1982 


0017 
0018 
0019 
0020 
0021 
0022 
0  023 

0024 
002S 
002f> 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
003S 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0  045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 


ov^r 

0  058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0  067 
0068 
0069 
0070 
0071 
0  072 
0073 
0074 
0  075 
0076 
0077 
0  078 
0079 
0080 
008) 
0082 
0083 
0084 
0085 


C 

C 

C 

C 

C 


PROGRAM  TXCOO  <3,99) 

Data  acquisition  transsonic  compressor. 


*,  Data  acquisition  transsonic  compressor. 

COMMON  /  CONTR  /  CNTRL 

INTEGER  CNTRL < 256 )> IDCB ( 1 44 ) ,PR<3) 

INTEGER  NOLF , NOCR  <  2  > , ICLR  <  3  > , STAR T  <  3 > 

DATA  NOLF  /006537B/ 

DATA  NOCR  /0 0 0 0338 , 0404338/ 

DATA  ICLR  /015524B, 0155158,0065376/ 

DATA  START  /0i55108>i55128, 015501B/ 

c  i:" ciRMA  r b  r x a o  <3 t r«i r t 

100  FORMAT  < 3A2 11  TXCOO  !  START*) 

101  FORMAT  (/''  1  ransson  tr  Compressor  Investigate 

*  *  1 3  "  ;  T,?  if  *  2  "  ;  P  oTnf  ‘V3UX ''l)o  t  e  * 


*e  "A2‘ 

*“  1 
*/ 

2 


*A2“;“/*  Select  next  stepj  please 
_  A  -  B  -  probe  system  survey  ‘'33X* 


i  Test  run  * 
-"/"A2“/“A2* i "lX*Ti« 


*/✓/ 

ABSRV 


_  __  On  line  calibration  KULITE  type  A  and  type  B  pro 
♦be  "9y*~CALIBV  rr 

*"  3  Acquisition  of  high  speed  data  in  free  run  node 

»"12X"~TRgER"7 

*"  4~  Acquisition  of  high  speed  data  in  paced  run  node 

*  *iix — FACER*// 

Combination  probe  survey  “35X"  COMB*/ 

Acquisition  of  steady  state  (fata  *27X*  S 


_  Check  the  instrumentation  *34X“  CHECK"/ 
*"  8  _  Change  the  program  control  array  CNTRL 

*  ■liX’^THNGEV/ 

*  *  9  -  Reduce 


on  line 


wmftH"/Cg  speed  data  from  A  -  B  -  probe  system 

* “  m  _ _ Reduce  data  from  the  combination  probe  *21X* 


*H-TTJ _ Reduce  data  from  the  combination  probe  *21X* 

*  REDCalr7" 

e*  11  Reduce  steady  state  data  “35X*  REDBT*// 

r>  Tnn  n  a  a  i  it  j  i  '  “  11  ■ 


Enter  select  code 


Va 


**  12  T5IT“  STOP  0001*// 

*“  Select  cfesircd  program  module  I 

*  -2A2) 

102  FORMAT  (12) 

103  FORMAT  < “TXCOl  *) 

104  FORMAT  <“  A  -  B  -  probe  system  survey?  Verifyl*2A2) 

105  FORMAT  <*  On  line  calibration  KULITE  type  A  and  type  B  probe? 

*r if v • *2AH ' 

106  FORMAT  <*  Acquisition  of  high  speed  data  in  free  run  node,  PACER 

*  all  right?*2A2) 

107  FORMAT  c*  Acquisition  of  high  speed  data  in  paced  run  node.  PACE 
»R  all  r iqht? “2A2> 

108  FORMAT  < "TXC02  ") 

109  FORMAT  <"  Combination  probe  survey?  Ver if y ! "2A2) 

110  FORMAT  < *  Acquisition  of  steady  state  data.  Long  <1> 

*)  run?  "2A2> 

111  FORMAT  <I1) 

112  FORMAT  < "TXC03  •) 

113  FORMAT  <"  Check  the  instrumentation.  Output  to  LU 
»"2A2> 

114  FORMAT  <*  Change  control  array  CNTRL  on  line?  Verify  I ”2A2> 

115  FORMAT  < “REDAB  *> 

116  FORMAT  <"  Reduce  high  speed  data  from  A  -  B  -  probe  system.  Vorl 
*f y  •  *2A2> 


•r  short  <0 


32 
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0 1S5 
0156 
0 1S7 
0  1S8 
01S9 
0160 
0161 
0162 
0163 
0164 
0165 
0166 
0167 
0168 
016? 
0170 
0171 
0172 
0173 
0174 
0175 
0176 
0177 
0178 
0179 
0180 
0181 
0182 
0183 
0184 
018S 
0186 
0187 
0188 
0189 
0190 
0191 
0192 
0193 
0194 
0195 
0196 
0197 
0198 
0199 
(120  0 
0201 
0202 
0203 
0204 
0205 
0206 
0207 
0208 
0209 
0210 
0211 
0212 
0213 
0214 
0215 
0216 
0217 
0218 
0219 
0220 
0221 
0222 
0223 


C 

C 

C 

c 

c 


c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


Acquisition  of  high  speed  data  in  paced  run  node, 


06  URITE  (LI,  i6>>  NOfcR 
READ  (LI,  149)  IDUM 
URITE  (LI,  149)  ICLR 
IF  (  IDUM  ,NE.  2H 
CALL  CODE 
URITE  (PR,  103) 

GO  TO  IS 


)  GO  TO  02 


C 

C 

C 


Conbination  probe  suruey. 


C 

C 

C 

c 

c 


07  URITE  (LI,  NOCft 

READ  (LI,  149)  IDUM 
WRITE  (LI,  149)  ICLR 
IF  (  IDUM  .NE.  2H 
CALL  CODE 
URITE  (PR,  108) 

GO  TP  IS 


08 


)  GO  TO  02 


URITE  (LI, 
READ  (LI, 
URITE  (LI, 
IF  <  IDUM 
CNTRL(Sl) 
CALL  CODE 
URITE  (PR, 
GO  TO  IS 


110)  NOCR 

111)  IDUM 
149)  ICLR 

. LT .  0  .OR. 

>  IDUM 

108) 


IDUM  ,GT .  1  )  CO  TO  02 


Check  the  instrunentatien . 


09  URitfe  (Li,  iiSi  Nf)fc* 
READ  (LI,  102)  IDUM 
URITE  (LI,  149)  ICLR 
IF  (  IDUM  . E~ 

IF  (  IDUM  .E 
IF  (  IDUM  . E 
GO  TO  02 

10  w-m  -  iduh 

WRITE  (PR,  112) 

GO  TO  IS 


>  GO  TO  10 
)  GO  TO  10 


18  )  GO  TO  10 


Change  the  progran  control  array  CNTRL  on  line. 


u  uRitfe'  airiWftofcrt . 

READ  (LI,  149)  IDUM 

WRITE  (LI,  149)  ICLR 

IF  (  IDUM  .NE.  2H  )  GO  TO  02 

CALL  CODE 

URITE  (PR,  112) 


34 
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0224 

022S 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

023S 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

02S1 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 

0261 

0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

m 

0272 

0273 

0274 

0275 

0276 

0277 

l?7% 

0280 

0281 

0282 

0283 

0284 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 


GO  TO  IS 


C 

c 

c 

c 

c 


c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


Reduce  high  speed  data  fron  A  -  B  -  probe  syeten. 


12  uftiTE  (LI,  116^  NOfcfc 

READ  (H,  149  >  IDUM 

WRITE  (LI  149 1  ICLR 

IF  (  IDUM  “■* 

CALL  CODE 
WRITE  (PR,  115) 

GO  TO  IS 


NE.  2H  )  GO  TO  02 


13  WRITE  (LI,  118)  NOCR 
RFAD  (LI,  149)  IDUM 
WRITE  (LI,  149)  ICLR 
IF  (  IDUM  .NE.  2H  )  GO  TO  02 
CALL  CODE 
WRITE  (PR,  117) 

GO  TO  15 


14  WRITE  (LI,  120)  NOCR 
READ  (LI,  149)  IDUM 
WRITE  (LI,  149)  ICLR 
IF  (  IDUM  .NE.  2H 
CALL  CODE 
WRITE  (PR,  119) 

GO  TO  IS  ’ 


)  GO  TO  02 


15  WRITE  (LI,  121)  PR,CNTRL<50> 

^PPVewSf  (1,2) 

CALL  EXEC  ( ICODE+1 OOOOOB.PR , IDCB, IDCBS) 
GO  TO  17 

16  GO  TO  18 

17  CALL  ABREG  (IA.IB) 

WRITE  (LI,  149)  (ICLR, 1*1, 2) 

WRITE  (LI  122)  PR , I A , IB, NOLF ,PR 

18  GO  TO  01 


19  WRITE  (LI,  123)  NOCK 
READ  (LI,  149)  IDUM 
WRITE  ( L I ^  149)  ICLR 
IF  (  IDUM  .NE,  2H 
CALL  REWRF  (1,2) 
WRITE  (  l,  124)  NOLF 
STOP  0001 
END 


)  GO  TO  02 
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0293  INTEGER  FUNCTION  ICON  (I,N> 

0294  C  . 

0295  C  .  _ 

0296  c  Converts  integer  numbers  into  ASCI  string. 

0297  C  .  Author:  Robert  N.  Geopforth 

0298  C  .  Date:  January  31,  1979 

0299  C  Because  of  the  sinplicity  of  the  progran  the  progran 

0300  C  .  description  is  included  in  this  bon. 

0301  C  .  I,  N  ...  integer  nunbers  to  be  added. 

0302  C  IC  ...  integer  nunher  to  be  converted  into  ASCII. 

0303  C  .  ICON  ...  2  -  character  ASCII  string  to  be  returned 

0304  C 

030S  C  . 

0306  *,  Convertes  integer  to  ASCII-str ing . 

0307  100  FORMAT  (12) 

0308 

0309  IC  =  I+N 

0310  IF  <  IC  , LT .  10  >  GO  TO  01 

0311 

0312  CALL  CODE 

0313  WRITE  (ICON, 100)  IC 

0314  RETURN 

031S 

0316  01  ICON  =  IC+30060B 

0317  RETURN 

0318  END 


FTN4  COMPILER:  HP92060-16092  REV.  2001  (791101) 


**  NO  WARNINGS  **  NO  ERRORS  **  PROGRAM  *  00036  COMMON  -  00000 
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SUBROUTINE  REWRF  ( IREUR , IUHATA) 


This  subroutine  reads  (IREUR  =  +1)  or  writes  (IREUR  ■  -1>  of 
of  a  array  specified  by  IUHATA. 

Author:  Hans  M.  Zebner 

Date  Febraury  08,  1980 

Detailed  program  description  is*available  in  TXCO  log}  The 
Comment  statements  match  to  the  flow  chart  explanations. 


o  the  flow  chart  explanations. 


,  Data  transfer  disc  array. 

COMMON  /  CIBUF  /  IBUF 

COMMON  /  CONTR  /  CNTRL 

COMMON  /  CA  /A 

COMMON  /  FMP  /  I DCB , IFILE , I  SIZE , 1SECU, ICR 

REAl.  A(2S6> 

INTEGER  IBUF (1664) 

INTEGE  R  I DCB( 144 ) , IFILE ( 3 ) , I  SI ZE (2 > 

I  NT  EGE  R  N01.F  ,  NOCR  ( 2 )  ,  ICLR  ( $ ) 

DATA  NOLF  /006537B/ 

DAI  A  NOCR  /00fl033B,040433B/ 

DATA  TCt.R  /0iSS24B,0iS515B,  0  06537B/ 

F  (  )  R  M  A  T  S>  R  I::.  Ul  R  |~  E:>  T  l«t  R  T 


101  FORMAT  ("  REURF 
*  :  00  :26“ ) 

102  FORMAT  (“  REURF 

103  FORMAT  (»  REURF 
♦  > 

104  FORMAT  (“  REURF 
♦  ) 

105  FORMAT  ("  REURF 

106  FORMAT  (“  REURF 

107  FORMAT  ( “  REURF 


ARRAY  I BUF ( 1 664 ) 


DISC  FILE  I BUFF 


DISC  FILE  IBUFF: 00:26  ARRAY  IBUF ( 1664 )* > 
ARRAY  CNTRL ( 2S6 )  DISC  FILE  CNTRLF : 00 : 26“ 

DISC  FILE  CNTRLF : 0 0 : 26  ARRAY  CNTRL(2S6>“ 


105  FORMAT  ("  REURF  :  ARRAY  A(25fe>  DISC  FILE  AF:00:26"> 

106  FORMAT  (“  REURF  :  DISC  FILE  AF: 00:26  ARRAY  A(2S6>*> 

107  FORMAT  ( “  REURF  :  ERROR  RETURN  (IUHATA  ="I3">“> 

108  FORMAT  ("IBUFF  “> 

109  FORMAT  ("CNTRLF") 

110  FORMAT  ("AF  *) 

121  FORMAT  ("  CALL  OPEN  ( IDCB  ,  IERR  ,  "3A2"  ,  "  12"  ,  *12* ,  »  12  ■  ,  “14* 
*)  failed;  ST0P*21X"“) 

122  FORMAT  <"  CALL  LOC.F  ( IDCB ,  IERR  ,  IDUM ,  II)UM ,  IDUM ,  ISIZE(  1  >  ,  I 
#DIIM,IDUM,ISIZE(2>  )  fai  led  :  STOP  *  ) 

123  FORMAT  <A  CALL  RUNDF  (IDCB, IERR)  failed;  ST0P“42X“M) 

124  FORMAT  <"  CAl L  READF  ( IDCB , IERR , IBUF , *  13* , “ 12* , “ 12* >  fai 

♦  led;  STOP “27X” * ) 

125  FORMAT  ("  CALL  WRITF  ( IDCB , IERR , IBUF , " 13  “  ,  "12“ , " 12" >  fai 
♦led;  STOP "26X " * ) 

126  FORMAT  ("  CALL  READF  (IDCB , I  ERR , CNTRL , " 13“ , "12" , " 12" )  fa 
♦tied;  STOP "27X" “ ) 

127  FQRMAl  ("  CALL  URITF  < IDCB , IERR , CNTRL ,“ 13“ , *12* 12" )  fc 
♦lied;  STOP “26X"" ) 

128  FORMAT  (“  CALL  READF  ( IDCB , IERR , A , *  13" , " 12 " , " 12" )  failed 
*•  STOP  **?7X  M  “  ) 

129  Format  <■•  call  writf  (Idcb,ierr,a,"I3","I2*,"I2")  faiisd 

♦  ;  STOP "26X " " ) 

130  FORMAT  ("  CALL  CLOSE  ( IDCB , IERR , 0 >  failed;  STOP"40X"" 

LI  =  LOGLU ( I SESSN ) 

ISECU  -  0 
ICR  «  26 

IF  (  IUHATA  .LT.  1  .OR.  IUHATA  . GT .  2  )  GO -TO  40 

GO  TO  (10,20)  IUHATA 


Integer  array  IBUF  being  written  back  and  forth. 
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0388 

1  0 

CALL  CODE 

0  389 

WRITE  ( IF ILE . 1 08 ) 

0390 

CAU  OPEN 

( I  DCS , IERR, IFILE, I OP TN, ISECU ,  ICR , 1DCBS) 

0391 

IF  i  IERR 

,C£.  0  )  do  TO  it 

039? 

WRITE  (LI  , 

121)  IFILE.IOPTN, ISECU , ICR , IDCBS 

0393 

STOP  1 

0394 

i  i 

CAl  L  IOCF 

( IDCB , I FRR  ,  IDUM , IDUrt , IDUM ,  ISI ZE( 1 ) , IDUK , IDUH, ISIZE (2) ) 

039S 

TF  (  IFRR 

,CE,  0  )  do  TO  12 

0  396 

WRITE  (LI, 

122) 

0  39? 

STOP  2 

0398 

1  2 

C  At  L  RWNDF 

( IDCB , IERR  > 

0399 

IF  (  IERR 

CE  .  0  )  GO  TO  13 

0400 

WRITE  (LI, 

123) 

0401 

STOP  J 

0  4  0? 

1  S 

ISIZE(l)  = 

ISIZE ( 1 )/2 

0403 

II  = 

IS  I ZE ( 1 >*ISIZE(2) 

0404 

It-  (  1  RE  UR 

•E0.  -1  )  GO  TO  14 

0405 

IF  (  IK  EUR 

EQ .  M  )  GO  TO  IS 

114  0b 

14 

OAIL  KEADF 

( IDCb , IERR , IBUF , IL) 

0  4  0  7 

IF  (  TERR 

GE.  0  >  WRITE  (LI,  102) 

0408 

IE  (  IERR 

.GE.  0  )  GO  TO  16 

0409 

WRITE  (LI, 

124)  IL , LE  N, NUN 

0410 

STOP  4 

0411 

15 

CALL  WRITE 

(IDCb, IERR  .  1 8UF , IL  > 

041? 

IF  (  IFRR 

.GE .  0  )  WRITE  (LI,  101) 

0413 

IE  (  IERR 

.GE.  0  )  GO  TO  16 

0414 

WRITE  (LT, 

125)  IL,LEN,NUH 

0415 

STOP  5 

041b 

16 

CALL  CLOSE 

(IDCB, IERR .0) 

0417 

IF  (  IERR 

.GE.  0  )  CO  TO  17 

0418 

WRITE  (LI, 

130) 

0419 

STOP  6 

0420 

17 

RETURN 

0421 

0422 

0423 

fl4?4 

c 

0425 

f; 

0426 

c 

Integer 

array  CNTRt  being  written  back  and  forth. 

0427 

c 

0  428 

c 

0429 

20 

CALL  CODE 

0430 

WRITE  < IFILE .109) 

0431 

CALL  OPEN 

( IDCB , IERR  .IFILE .IOPTN , ISECU , ICR , IDCBS) 

0432 

IF  <  IERR 

•CE.  0  )  Co  TO  21 

0433 

WRITE  (LI, 

121)  IFILE, IOPTN, ISECU, ICR, IDCBS 

81& 

21 

&All  l^cf 

( IDCB , I ERR , I DUM , I DUM , IDUM , ISIZE ( 1 ) , IDUM , IDUM , ISIZE ( 2  > ) 

(1436 

IF  (  IERR 

.GE.  0  )  fco  TO  22 

0437 

WRITE  (LI, 

122) 

0438 

STOP  12 

0439 

22 

CALL  RWNDF 

(IDCB, IERR) 

0440 

IF  (  IERR 

. GE .  0  )  GO  TO  23 

0441 

WRITE  (LI, 

123) 

0442 

STOP  13 

0443 

23 

ISIZE(l)  = 

ISIZE ( 1 )  /2 

0444 

It. 

ISIZE(1 )*ISIZE(2) 

0445 

IF  (  IRE.WR 

,EO.  -1  )  GO  TO  24 

0446 

IF  (  IREWR 

.  E(3 .  +1  )  GO  TO  25 

0447 

24 

CALL  READF 

(IDC.B,  IERR  .CNTRL.IL) 

0448 

IF  (  IERR 

.GE.  fl  )  WRITE  (LI,  104) 

0449 

IF  (  IERR 

,  GE .  0  )  GO  TO  26 

0450 

WRITE  (LI, 

126)  IL,LEN,NUM 

0451 

STOP  14 

0452 

25 

CALL  WRITF 

( IDCb, IERR .CNTRL.IL) 

0453 

IF  (  IERR 

•  GE.  0  )  lilR  I TE  ILI,  103) 

0  454 

IF  (  IERR 

. GE ,  0  )  GO  TO  26 

0455 

WRITE  (LI, 

127)  IL,LEN,NUM 

0456 

STOP  15 

39 
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04S7 

0458 

0459 

0460 

26 

0461 

0462 

0463 

0464 

27 

0465 

C 

0466 

C 

0467 

C 

0468 

C 

0469 

c 

0470 

c 

30 

0471 

C 

0472 

c 

0473 

c 

0474 

c 

0475 

C 

0  476 

c 

31 

0477 

c 

0478 

c 

0479 

c 

0480 

c 

32 

0481 

c 

0482 

c 

0483 

c 

0484 

c 

33 

0485 

c 

0486 

c 

0487 

c 

0488 

c 

34 

0489 

c 

0490 

c 

0491 

c 

0492 

c. 

0491 

c 

35 

0494 

c 

0  495 

c 

0496 

c 

0497 

c 

0  498 

c 

36 

0499 

c 

0500 

c 

0501 

c 

0502 

0503 

0504 

0505 

c 

37 

0506 

c 

0507 

c 

0508 

c 

0509 

c 

0510 

c 

0511 

0512 

0513 

0514 

40 

CALL  CLOSE  ( IDC.B,  I  ERR  .0  ) 

IF  <  IERR  ,GE.  0  >  CD  TO  27 
WRITE  (LI,  130) 

STOP  16 
RETURN 


CALL  COD£ 
WRITE  (  IFILE 
CALL  OPEN 
IF  <  I ERR 
WRITE  (LI, 
STOP  21 
CALL  LOCF 
IF  (  IERR 
WRITE  (LI, 
STOP  22 
CALL  RWNDF 
IF  (  IERR 
WRITE  (LI, 
STOP  23 
ISIZE<1>  = 

IL 

IREUR 
IREWR 
READF 
IERR 
IERR 
<U, 


IF  ( 
IF  ( 
CALL 
IF  ( 
IF  ( 
WRITE 


(iocs!  IERR  .IFILE,IOPTN,ISECU,ICR,IDCBS> 

. GE ,  0  )  CO  TO  31 

121)  IFILE ,IOPTN, ISECU, ICR, IDCBS 

( I  DCS  ,  IERR  ,  I  DOM ,  IDUM ,  IDUM ,  ISIZE  ( 1 ) ,  IDUH  ,  IDUH,  ISIZE(2)> 
.GE.  0  )  6o  TO  32 

122) 

( TDCB , IERR) 

.GE.  0  )  GO  TO  33 
123) 


STOP  24 
CALt.  WRITE 
IF  (  IERR 
IF  (  IERR 
WRITE  (LI, 
STOP  25 
CALL  CLOSE 
IE  (  IERR 
WRITE  (LI, 
STOP  26 
RETURN 


ISIZE  < 1 ) /2 
ISIZE ( 1 >*ISIZE (2) 
.EQ.  -1  )  GO  TO 
.EQ.  +1  )  GO  TO 
(IDCB,IERR,A,IL) 
.GE.  0  )  WRITE  (LI 
.GE,  0  )  GO  TO  36 
128)  IL,LEN,NUH 


It 


(inCB, I ERR , A, I L  > 

.  GE .  0  )  lilRtTE  (LI, 

.GE.  0  )  GO  TO  36 

129)  IL  ,l.EN  ,NUH 

( I DCB , IERR  , 0  > 

.GE.  0  )  GO  TO  37 

130) 


106) 


105) 


Error;  IWHATA  is  not  defined. 


WRiTE  (LI,  10^)  IWHAtA 
IWHATA  =  -IWHATA 
RETURN 
END 


FTN4  COMPILER:  HP92060-16092  REV.  2001  (791101) 

**  NO  WARNINGS  **  NO  ERRORS  **  PROGRAM  -  01146  COMMON  •  00000 
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0S15 

0516 

0517 

0518 

0S19 

0520 

0521 

0522 

0523 

0524 

052S 

0526 

0527 

0S28 

0529 

0530 

0531 

0532 

0533 

0534 

0535 

0536 

0537 

0538 

0539 

0540 

0541 

0542 

0543 

0544 

0545 

0546 

0547 

0548 


SUBROUTINE  TIME  ( I MON  ,  IDAY , I YEAR , IHOUR , IMIN , I8EC) 


C 

C 

C 


MMllVfcW RL  ASCU  StPin»' 


INTEGER  I T IME<5 ) 

INTEGER  CNTRI. < 256 > 

901  FORMAT  ( “  ERROR  DETECTFD  IN  PROGRAM  TIME"/ 
*  -  CALL  EXEC  <11, 1  TIME) “/) 

IMON  =  2H00 
IDAY  =  2H0* 

TYEAR=  2H00 
IHOUR=  2H»* 

IMIN  =  2H0* 

TSEC  =*  2H** 

CALL  EXEC  (11+100000B, I TIME) 

GO  TO  02 
01  GO  TO  03 
02  CALL  ABREG  <IA,IB> 

GO  TO  04 

ICON  <  CNTRL  < 1 > , 0  > 

I  CON (CNTRL  <  2 ) ;o> 

1  CON  <  CNTRL  <  3 ) , 0 ) 

I CON  < I T I  ME  <  4 ) , 0  > 

ICON  <ITIME<3),0> 

ICON ( ITIME (2) ,0) 


03  IMON 

IDAY  * 
I  YE  AR  = 
IHOUR  - 
IMIN  ■= 
I  SEC  * 
RETURN 
04  URITE  < 
RETURN 
END 


6,  901)  1A , IB 


FTN4  COMPILER!  HP92060-16092  REM.  2001  <791101) 

**  NO  WARNINGS  **  NO  ERRORS  **  PROGRAM  -  00146 


COMHON  -  00000 
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FMP 

26042 

26270 

Cl  HUE 

26271 

31470 

CONTR 

31471 

32070 

TXCOO 

32071 

36015 

ICON 

36016 

36061 

REURF 

36062 

40253 

TIME 

40254 

40475 

LOGLU 

40476 

40553 

READF 

40554 

41544 

OPEN 

4154S 

42107 

CLOSE 

42110 

42323 

OVRD  . 

42324 

42324 

♦  SMVE 

42325 

42417 

LOCF 

42420 

42720 

APREG 

42721 

42742 

RUNDE 

42743 

43027 

L.  IJRQ 

43030 

43442 

CLRIO 

43443 

43451 

FMTiO 

43452 

44750 

IFTTY 

44751 

45036 

.  DADS 

45037 

45146 

.  DMP 

45147 

45314 

.  DD 1 

45315 

45615 

SESSN 

45616 

45633 

R/W* 

45634 

45772 

P  .PAS 

45773 

46021 

.  DNG 

46022 

46031 

PAUSE 

46032 

46132 

♦  ALRN 

46133 

46250 

.  SBT 

46251 

46311 

SOPE'.N 

46312 

46466 

RUSUB 

46467 

47034 

RWND* 

47035 

47157 

•  DIN 

47160 

47165 

.DDE 

47166 

47177 

FRMTR 

47200 

S263S 

FMT.E 

52636 

52636 

PAU.E 

52637 

52637 

.  CFER 

52640 

52701 

4SETP 

52702 

52726 

REIO 

52727 

53053 

RMPAR 

53054 

53116 

LUTRU 

53117 

53225 

PNAME 

53226 

53273 

•  LBT 

53274 

53324 

/  FMP  /  IDCB( 1 44 ) ,IFILE<3) , ISIZE (2 ) 
/  CIBIJF  /  IFUF  1 1664 ) 

/  CUNTR  /  CNTRL<256> 


Do t q  acquisition  transsonic  cor 


Con  ve 

Data 

Gets 

92067- 

92067- 

92067- 

92067- 

92067- 

93067- 

92067 

92068- 

92067 
92067- 
24998- 
24998 
92067- 
24998 
24998 
24998- 
92067- 
92067' 
920  67 
24998- 
24998 
92067- 

92068 
92067- 
92067 
92067- 
24998 
24998- 
24998- 
24998- 
24998- 
24998- 
24998- 
92067- 
92068- 
92067- 
92068- 
92068- 


rtes  inteaer  t 
transfer  disc 
date  and  tine 


1X297 

16125 

16125 

16125 

16125 

1X483 

16125 

1X013 

16125 

1X270 

1X248 

1X230 

1X295 

1X036 

1X045 

1X040 

16125 

16125 

161.25 

1X046 

1X253 

1X271 

1X011 

16125 

16125 

16125 

1X042 

1X039 

1X231 

1X232 

1X2S4 

1X196 

1X013 

1X275 

1X025 

1X308 

1X035 

1X008 


REV. 2013 
REV. 2001 
REV. 2001 
REV. 2001 
REV. 1903 
REV. 2013 
REV. 1903 
REV. 2013 
REV . 1903 
REV. 20 13 
REV. 2001 
REV. 2001 
REV. 2013 
REV. 2001 
REV. 2001 
REV , 2001 
REV. 1903 
REV. 1903 
REV. 1903 
REV. 2001 
REV. 2001 
REV. 2013 
REV. 2013 
REV. 1903 
REV. 1903 
REV. 1903 
REV. 2001 
REV. 2001 
REV. 2001 
REV. 2001 
REV. 2001 
REV. 2001 
REV. 2001 
REV. 2013 
REV, 2013 
REV. 2013 
REV. 2013 
REV .2013 


o  ASCII-string. 
array. 

ASCII  string. 

7^0228 

791015 

791619 

791019 

780526 

800129 

nm 

780724 
791024 
750701 
790417 
790118 
780818 
780818 
781021 
780413 
781214 
740801 
780818 
771122 
770715 
770518 
790103 
781003 
780801 


780818 

780818 

790503 

781107 

mm 

781106 

790316 

7fo^2$ 

771121 

770518 


iUm  RELWh:M12 

/LOADR i TXCOO  READY  AT 


M?t!eq,Bohho»?nEAGE8  ema 
9:55  AM  MON.,  20  SEPT,  1982 


,  ISECU, ICR 


NO  PACES  MSEC 


/LOADR i SEND 


4 .  PROGRAM  TXCOl 


4.1.  DESCRIPTION 

TXCOl  is  a  son  program  of  the  father  program  TXCO0,  by 
which  it  is  scheduled,  if  one  of  the  following  operations  is 
desired: 

1  -  A  -  B  -  probe  system  survey 

2  -  On  line  calibration,  KULITE  type  'A'  and  'B'  probes 

3  -  Acquisition  of  high  speed  data  in  free  run  mode 

4  -  Acquisition  of  high  speed  data  in  paced  run  mode. 

When  scheduled  by  TXCO0,  which  suspends  operation  while  the 
son  program  TXCOl  executes,  the  program  TXCOl,  reads  the  pro¬ 
gram  control  array  from  the  disc,  sets  the  HP  interface  bus  and 
the  measurement  and  control  devices  to  remote  control  and  pro¬ 
grams  the  Digital  Voltmeter  (DVM) ,  the  scanners  and  the  counter. 
CNTRL  (50)  is  the  actual  decision  variable  to  select  and  call 
the  subroutine,  which  performs  the  desired  operation.  When 
this  subroutine  has  terminated,  the  interface  bus  and  the 
devices  are  released  from  remote  control  and  the  control  array 
is  written  into  a  disc  file,  so  that  the  next  TXCO  module  can 
read  it.  The  correct  termination  of  each  subroutine  can  be 
verified  by  checking  the  stop  codes.  Note,  that  each  stop 
coding  ending  on  77  indicates  correct  execution  of  a  subroutine. 


CNTRL  (50) 

Subroutine 

STOP  Code 

1 

ABSRV 

TXCOl 

• 

• 

STOP 

0177 

2 

CAL  IB 

TXCOl 

• 

• 

STOP 

0277 

3 

FREER 

TXCOl 

• 

• 

STOP 

0377 

4 

PACER 

TXCOl 

: 

STOP 

0477 

Any  other  STOP  code  indicates  an  error  and  utilizing  a  program 
list  the  operator  can  trace  the  problem.  The  first  two  digits 
of  the  STOP  code  are  typical  for  the  subroutines.  An  example: 
the  program  stops  at  STOP  code  0304;  the  first  two  digits  read 
3  and  this  tells  the  operator  that  it  was  subroutine  FREER  which 
ran  into  trouble,  because  the  ending  two  digits  read  04,  which 
is  different  from  77;  a  program  list  uncovers  that  the  failure 
occurred  while  writing  into  a  disc  file  using  FMP  (File  Manage-* 
ment  Package)  subroutine  WRITF  near  line  1005.  STOP  codes  are 
crucial  for  a  complex  program  system  in  order  to  rapidly  detect 
and  salvage  problems,  even  during  a  test  run. 

EXTERNALS:  REWRF ,  ABRT,  RMOTE ,  ABSRV,  CALIB,  FREER,  PACER, 

CLEAR,  LOCL 

COMMON  BLOCKS:  CONTR,  CIBUF,  FMP 

FORTRAN  conventions  for  the  HP21MX  computer  request  COMMON 
blocks  to  be  predefined  in  a  BLOCK  DATA  subroutine  prior  to 
using  a  COMMON  block  in  a  program,  subroutine  or  function. 


BLOCK  DATA  subroutine 

arrays  &  variables 

length 

in  words 

CONTR 

CNTRL 

400B 

»  256 

CIBUF 

IBUF 

3200B 

»  1664 

FMP 

IDCB , IFILE , ISIZE , ISECU , ICR 

227B 

-  151 

The  COMMON  block  CONTR  allocates  the  space  for  the  control 
array  CNTRL.  A  key  to  decode  the  individual  elements  of  CNTRL 
can  be  found  in  the  Appendix .COMMON  block  CNTRL  is  designed  to 


take  the  largest  raw  data  array  -  IBUF  (1664)  in  subroutine 
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FREER  -  even  if  other  subroutines  only  partially  use  the 
space/  allocated  by  the  block  CIBUF.  The  arrays  and  variables 
allocated  by  the  COMMON  block  FMP  are  frequently  used  for  the 
data  transfer  from  and  to  the  disc.  Since  each  individual  sub¬ 
routine  saves  the  data  prior  to  terminating,  more  than  one 
subroutine  or  function  may  use  the  same  buffer  area. 

MNEMONIC  ABBREVIATIONS:  None 

ERROR  MESSAGES ;  If  CNTRL  (50)  is  less  than  1  or  greater  than  4,' 
no  subroutine  can  be  selected  and  the  program  terminates,  out- 
putting  an  error  message  (FORMAT  102)  to  the  terminal. 

PROCEDURE :  For  more  detailed  information  study  the  flow  chart 
and  the  information  given  in  the  section  PURPOSE. 

DATA  FILE :  None 


VARIABLES  IN  BLOCK  DATA  CONTR : 
CNTRL  (256)  integer 

VARIABLES  IN  BLOCK  DATA  CIBUF: 
IBUF  (1664)  integer 

VARIABLES  IN  BLOCK  DATA  FMP; 

IDCB  (144)  integer 

IFILE  (3)  integer 

ISIZE  (2)  integer 


program  control  array. 

buffer  array  for  the  raw  data. 

data  control  block, 
array  to  contain  file  name, 
array  to  contain  #  of  records 
in  thn  first  and  record  length 
in  16-bit-words  in  the  second 
word. 


45 


isecu 


integer 

integer 


security  code  of  data  file, 
cartridge  reference  number, 
where  data  file  is  located. 


ICR 


VARIABLES  IN  PROGRAM  TXCOl : 


CNTRL  (256) 

integer 

program  control  array. 

NOLF 

integer 

suppresses  line  feed. 

LI 

integer 

LU3  of  standard  input  device 

(terminal) . 

ISTOP 

integer 

control  variable  to  select 

STOP  code. 

Xl 

real  *| 

f 

i 

X2 

I 

real  . 

>  dummy  variables . 

X3 

real  J 
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FLOW*  CHART  PROGRAM  TXCO/  ■■ 


_ I/O  Atmgnmtni . 
LZ'CftrPL  09) 


START 


4.2.  SUB  ROUT INEABS RV : 


PURPOSE :  Acquisition  of  high  speed  data  from  the  1-stage 
axial  compressor  using  miniaturized  probes  equipped  with  KULITE 
semiconductor  pressure  transducers. 

ARGUMENTS :  None 

EXTERNALS :  CALIB,  TIME,  REAT,  PURGE,  OPEN,  WRITE,  POSNT,  CLOSE, 
SCANR,  PACER. 

COMMON  BLOCKS:  CIBUF,  CONTR ,  FMP .  For  detailed  explanation 
refer  to  the  TXC01  description. 

MNENOMIC  ABBREVIATIONS; 

RE  ...  Repeat  data  acquisition  of  this  yaw  position. 

NE  ...  Proceed  to  next  yaw  position. 

EN  ...  End  data  acquisition  at  various  yaw  positions. 

UP  ...  Update  position  readings  of  probes  prior  to  data 
taking . 

TA  . . .  Initialisation  command  to  take  data. 

PU  ...  Allow  purge  of  an  existing  data  file. 

ERROR  MESSAGES;  If  the  number  of  yaw  positions  exceeds  the 
previously  defined  number,  the  program  terminates  the  sub¬ 
routine  correctly  (in  order  to  save  the  already  acquired 
data)  and  displays  an  error  message  (FORMAT  118) .  The  total 
#  of  possible  yaw  positions  is  input  prior  to  creating  the  raw 
data  file,  so  that  latter  can  be  created  at  the  desired  length. 
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PROCEDURE:  For  more  detailed  information,  study  the  flow 
chart.  After  having  read  the  accounting  data,  assigned  the 
I/O  references  and  preset  the  raw  data  array,  ABSRV  asks  the 
operator,  whether  the  'A'-'B'-  probe  system  has  been  calibrated 
on  line.  If  the  answer  is  NO,  ABSRV  calls  the  subroutine  CALI3, 
which  controls  the  calibration.  Then  the  calibration  results 
are  entered  and  the  operator  is  asked  to  input  the  number  of 
different  yaw  positions.  Based  on  this  information  a  raw  data 
file  of  the  appropriate  length  will  be  created  and  positioned. 

If  the  file  with  the  automatically  determined  name  already 
exists,  the  operator  either  allows  overwriting  the  existing 
file  (Input  :  PU)  or  renames  the  current  data  file  (Input  :  any 
alphabetic  character  other  than  T) .  Prior  to  taking  data  the 
position  of  the  probes  is  scanned  and  displayed.  This  control 
loop  can  be  repeated  by  keying  UP.  Inputting  TA  initializes 
the  data  acquisition  by  subroutine  PACER.  Upon  completion  of 
the  scan  the  operator  cam  repeat  this  scan  (Input  :  RE) ,  pro¬ 
ceed  to  the  next  point  (Input  :  NE)  with  a  different  yaw  posi¬ 
tion  of  both  'A'  and  'B'  probe.  If  the  operator  accidentally 
has  decided  to  proceed  to  a  probe  position  beyond  the  previously 
specified  number,  ABSRV  displays  an  error  message  and  terminates 
the  subroutine  correctly,  i.e.  saves  the  data  in  file,  closes 
the  file  amd  writes  the  accounting  data  back  into  the  control 
array . 

DATA  FILE:  For  more  detailed  information,  study  the  following 
flow  chart.  The  default  file  name  is  Tlrrss  (rr  . . .  ASCII  con¬ 
verted  run  #,  ss  ...  ASCII  converted  sequential  #) . 
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VARIABLES : 


IBUF  (1664) 

integer 

buffer  array 

CNTRL  (256) 

integer 

control  array 

IDCB  (144) 

integer 

data  control  block,  used  for  FMP 

calls 

IFILE  (3) 

integer 

array  to  contain  current  file 

name  calls 

ISIZE  (2) 

integer 

specifies  #  of  records  and  record 

length 

ISECU 

integer 

security  code  of  data  file 

JSECU 

integer 

ASCII-converted  security  code 

ICR 

integer 

cartridge  reference  number,  when 

data  file  is  located 

JCR 

integer 

ASCII  converted  cartridge 

reference  number 

POS  (7) 

real 

array  to  contain  probe  positions 

RBCJF  (62) 

real 

data  array,  set  equivalent  to  IBUF 

MOLE 

integer 

suppresses  line  feed 

NOCR  (2) 

integer 

suppresses  line  feed  and  carriage 

return 

ICLR  (3) 

integer 

clear  line  above  cursor 

IDCBS 

integer 

length  of  data  control  block  IDCB 

IPAGE 

integer 

count  of  current  page 

IDOC 

integer 

count  of  current  program  run 

IDOCF 

integer 

count  of  current  data  file 

sequential  # 

IL 

integer 

number  of  words  to  be  transferred 

in  FMP  calls 
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ITYPE 

integer 

type  of  data  file 

IFRST 

integer 

standard  for  the  first  two 

characters  of  file  name 

LI 

integer 

LU3  of  standard  input  device 

(terminal) 

LO 

integer 

LU#  of  standard  output  device 

(line  position) 

LSI 

integer 

LU#  of  scanner  #1 

LS2 

integer 

LU#  of  scanner  #2 

ICAL 

integer 

decision  parameter 

IDUM 

integer 

decision  variable 

SLOPEA 

real 

slope  of  linear  curve  fit  for 

A  probe  calibration 

SECONA 

real 

intercept  of  linear  curve  fit 

for  A  probe  calibration 

SLOPES 

real 

slope  of  linear  curve  fit  for 

B  probe  calibration 

SECONB 

real 

intercept  of  linear  curve  fit 

for  B  probe  calibration 

AVKGEA 

real 

average  voltage  A  probe,  when 

aligned  to  flow 

AVRGEB 

real 

average  voltage  B  probe,  when 

aligned  to  flow 

PBARO 

real 

barometric  pressure 

NPOS 

integer 

number  of  different  yaw 

positions  'A’-'B'  survey 

IERR 

integer 

error  flag  (FMP  package) 
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IMON 

integer 

ASCII  converted  month  of  the  year 

IDAY 

integer 

ASCII  converted  day  of  the  month 

IHOUR 

integer 

ASCII  converted  hour  of  the  day 

(24  hr  clock) 

IMIN 

integer 

ASCII  converted  minute  of  the  hour 

IYEAR 

integer 

ASCII  converted  last  two  digits 

of  current  year 

IFRST 

integer 

temporary  buffer  variable 

NEW 

integer 

scratch  variable  for  change  of 

file  name 

IPOS 

integer 

current  yaw  position  count 

IREC 

integer 

record  positioning  variable 
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FLOW  -CHART  SUBROUTINE  ABSRV 
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4.3.  SUBROUTINE  CALIB 

PURPOSE :  Control  the  on-line  calibration  for  the  A-B-  probe 
system.  This  includes  data  acquisition  and  storage  as  well  as 
approximating  the  calibration  results. 

ARGUMENTS ;  None 

EXTERNALS:  TIME,  FREER,  PACER,  CURVE 

COMMON  BLOCKS:  CONTR.  For  detailed  explanation  refer  to  the 
TXCOl  description. 

MNEMONIC  ABBREVIATIONS: 

RE  ...  Repeat  this  point 

EN  . . .  End  the  on  -line  probe  calibrations 

ERROR  MESSAGES:  If  no  calibration  is  performed,  the  sub¬ 
routine  outputs  a  warning  (FORMAT  108)  and  terminates;  this 
can  happen,  if  at  the  first  decision  to  be  made  the  operator 
inputs  EN. 

If  less  than  two  points  with  different  reference  pressures 
are  taken,  the  subroutine  outputs  an  error  message  (FORMAT 
log)  and  terminates. 

Both  messages,  if  studied  carefully,  tell  the  operator  how 
to  avoid  mistakes. 

PROCEDURE :  For  more  detailed  information,  study  the  flow 
chart.  After  having  read  the  accounting  data  and  assigned 
the  I/O  references,  CALIB  asks  the  operator  to  input  a 
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number  (which,  when  the  program  was  debugged,  was  the  digital 
multimeter  read-out  displaying  the  analog  voltage  of  either  'A' 
or  'B'  probe).  This  input  initializes  the  data  acquisition  at 
the  first  reference  pressure.  Then  the  program  reminds  the 
operator  to  switch  the  pacer  to  free  run  mode.  The  operator 
responds  by  pressing  the  return  key  and  the  program  calls  sub¬ 
routine  FREER.  Average  voltage  from  both  'A1  and  '  B'  probe, 
together  with  the  KULITE  reference  pressure  are  written  into 
the  arrays  AVOLT,  BVOLT  and  RPRES,  respectively.  The  operator 
then  decides  whether  to  repeat  the  measurements  at  thi3 
reference  pressure  (Input  :  RE) ,  end  the  calibration 
(Input  :  EN)  or  proceed  to  the  next  point  (Input  :  any  numeri¬ 
cal  value) .  If  the  calibration  is  to  be  terminated,  the 
operator  is  reminded  to  switch  the  pacer  to  paced  run  mode 
and,  with  the  reference  pressure  unchanged,  a  paced  scan  is 
taken  from  both  'A1  and  '  B'  probe  (using  PACER).  Then  sub¬ 
routine  CURVE  computes  an  average  linear  curve  fit  through 
the  data  points  (AVOLT  vs.  RPRES  and  BVOLT  vs.  RPRES  respec¬ 
tively)  .  In  both  cases  slope  and  intercept  are  printed.  Note, 
that  the  intercept  is  meaningless,  but  required  in  subroutine 
CURVE,  which  uses  a  least  squares  algorithm.  CALIB  then  ter¬ 
minates  and  writes  the  accounting  data  back  into  the  control 
array. 

DATA  FILE:  Handled  by  subroutines  FREER  (Section  4.4)  and 
PACER  (Section  4.5). 
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VARIABLES : 


CNTRL  (256) 

integer 

control  array 

AVOLT  (10) 

real 

array  to  contain  average  voltages 

from  A  probe 

BVOLT  (10) 

real 

array  to  contain  average  voltages 

from  B  probe 

RPRES  (10) 

real 

array  to  contain  reference  pressures 

DMM  (10) 

real 

array  to  contain  additional  data 

(e.g.:  DMM  read  outs) 

NOLF 

integer 

suppresses  line  Feed 

NOCR  (2) 

integer 

suppresses  line  Feed  and  carriage 

return 

ICLR  (3) 

integer 

clears  line  above  cursor 

ITIME  (5) 

integer 

array  to  contain  ASCII  converted 

date  and  time 

10  (5) 

integer 

scratch  array 

IPAGE 

integer 

count  of  current  page 

LI 

integer 

LU#  of  standard  input  device 

(terminal) 

LO 

integer 

LU#  of  standard  output  device 

(line  printer) 

IMON 

integer 

ASCII  converted  month  of  the  year 

I  DAY 

integer 

ASCII  converted  day  of  the  month 

IYEAR 

integer 

ASCII  converted  last  two  digits 

IHOUR 

integer 

ASCII  converted  hour  of  the  day 

(24  hr  clock) 
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IMIN 

integer 

ASCII  converted  minute  of  the 

hour 

IPTS 

integer 

variable  count  total  #  of 

calibration  positions 

IPREV 

integer 

variable  temporary  stores  contents 

of  CNTRL  (219) 

IDUM 

integer 

scratch  variable 

DM 

real 

variable  used  to  decode  value 

from  array  10 

IREC 

integer 

starting  record  for  paced  run- 

data  array 

SLOPE 

real 

slope  of  linear  curve  fits 

SECON 

real 

intercept  of  linear  curve  fit 

(as  from  CURVE) 
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Calculate  linear 
Curve  61  Ihrvuai, 
A  and  &  daCo 

potnilC ;  done  by 
sdorouhr-GUMS 


Termmaie  cvh- 
reutino;  wn«e 
ateounhry  ofala. 
bade  tuh  ended 

OtOrf 

CNm.(2*d  te  He 
previous  value 


Brer--  Orly  Ore 

da ib  /Oo»V»/  it  uof 

■Suffteteui  /• 

derive  shpte.. 


Error;  no  Cm/i* 
far*  hour  per* 

formed  «/  a/!. 


4.4.  SUBROUTINE  FREER : 


PURPOSE :  Control  data  acquisition  from  HP  5610  A/D  converter, 
store  data  in  file  and  documentation,  perform  calculation  of 
average  voltage. 


ARGUMENTS : 

AVOLT, 

BVOLT,  PREFR 

AVOLT 

real 

average  voltage  from  ’A'-  probe 

based  on  NRPT3  points 

BVOLT 

real 

average  voltage  from  ' B ' -  probe 

based  on  NRPT3  points 

PREFR 

real 

reference  pressure  for  KULITE 

transducers  (raw  data  format) 

EXTERNALS: 

TIME, 

ICON, 

SCANR,  EXEC,  ABREG,  CREAT,  OPEN,  PURGE 

WRITF ,  CLOSE 

COMMON  BLOCKS:  CIBUF,  CONTR,  FMP.  For  detailed  description 
refer  to  the  TXCOl  description 

MNEMONIC  ABBREVIATIONS; 

PU  . . .  Allow  purge  of  an  existing  data  file 

ERROR  MESSAGES:  If  the  EXEC  call  to  read  the  voltages  from  the 
A/D  converter  is  not  executed  correctly,  an  error  return  occurs 


as  follows: 


set  the  no-abort  bit 


CALL  EXEC  (1  +  100000B,  20,  IBUF(l),  NRPT2 ,  ICHNL,  4) 
GO  TO  11  <3 error  return:  perform  error  processing! 

10  GO  TO  12  <} good  return:  proceed! 

11  CALL  ABREG  (IA,IB)  <3 —  look,  what's  in  the  registers. 
GO  TO  21 


Error  returns  . . . . 


21  WRITE  (6,  901)  NRPT2,  ICHNL  T _ .output  error  message 

WRITE  (6,  902)  IA,  IB  j  ^  then  terminate 

GO  TO  20  subroutine 

PROCEDURE:  For  more  detailed  information,  study  the  flow  chart. 
The  subroutine  reads  the  accounting  data  from  the  control  array 
.and  defines  FMP  parameters  (FMP  :  File  Management  Package, 
manipulates  disc  Files) .  Next  the  I/O  references  are  assigned 
and  all  words  of  the  raw  data  array  are  preset  to  be  177777B. 

If  CNTRL  (37)  is  set  to  1,  the  heading  for  the  Free  Sun  documen¬ 
tation  page  is  printed.  If  CNTRL  (38)  is  set  to  one,  a  key  to 
the  printout  is  printed.  Then  the  data  acquisition  loop  starts 
and  executes  NRPT1  times  (NRPTl  -  CNTRL  (230)  -  number  of  KULITE 
signals  to  be  acquired;  maximum  is  16) .  Should  the  sequential 
number  for  the  data  file  name  become  greater  them  99,  the  first 
two  characters  of  the  file  name  are  changed  from  T2  (default) 
to  S2  and  the  count  is  reset  to  zero.  Additional  data  is 
acquired  and  the  probe  positions  are  read  and  written  into  the 
variable  IOX1M.  Prior  to  the  data  acquisition  all  unused 
elements  of  the  data  array  are  set  to  zero.  Utilizing  the  EXEC 
call  NRP2  measurements  are  performed  and  the  A/D  digital 
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output  is  written  into  array  IBUF,  starting  at  address  of  word 
IBUF  (1) .  ICHNL  specifies  the  selected  A/D  analog  input 
channel.  The  4  in  the  parameter  list  causes  the  A/D  converter 
to  dump  data  into  the  CPU  as  fast  as  possible  via  DMA  (Direct 
Memory  Access) .  If  an  error  occurs,  its  reason  is  enquired 
(see  preceding  segment  ERROR  MESSAGES) .  To  calculate  the 
average  voltage,  all  words  of  IBUF  must  be  anded  with  IMASK, 
because  bits  0  through  5  are  used  to  control  the  data  transfer. 

bit  15  12  9  6  3  0 

IBUF ( J2)  1111001011100010  »  171342B 

IMASK  1111111111000000  *  177700B  »  -64 

IBUF ( J2)  *  I AND  (IBUF ( J2) ,  IMASK) 

IBUF ( J2)  -  1111001011000000  -  171300B  -  -3392 

To  derive  the  voltage,  IBUF(J2)  must  first  be  divided  by  the 
maximum  value  which  can  be  transferred  by  a  16-bit  word  when 
the  bits  0  through  5  do  not  contain  data;  this  word  is 

0111111111000000  »  077700B  -  32704 

This  bit  configuration  corresponds  to  the  full  scale  voltage 
(FSVLT)  of  +1  Volt.  When  no  bit  is  set,  the  voltage  is  0 
(ensured  by  calibration).  Thus  if  the  integer,  IBUF(J2)  is 
divided  by  32  704  and  multiplied  by  unity  the  voltage  is  ob¬ 
tained.  Since  the  bits  0  through  5  are  not  used  for  data, 
the  maximum  voltage  resolution  of  the  A/D  converter  is 

R  *  rrms  * rsviT  *  A  * FSV1T  -  sit  *  rsVLT 

R  -  .001  956  947  Volt,  if  FSVLT  »  +1.0  V 
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The  voltage  associated  with  the  bit  configuration 


1111001011000000  =  171300B  =  -3392 

-3  3Q2 

is  -.103  718  Volt  =•  3^  ~7q'^  *  1.0  Volt.  In  the  Subroutine,  how¬ 
ever,  the  division  through  32  704  and  the  multiplication  with 
FSVLT  is  executed  after  all  the  voltages  from  NRPT2  points 
are  added  in  order  to  compute  the  average  voltage.  The  average 
voltage  then  is  written  into  the  variable  AVOLT  or  BVOLT ,  depend¬ 
ing  on  which  probe  has  been  selected.  The  data  then  are  saved 
in  a  file.  If  a  file  with  the  automatically  determined 
name  already  exists,  the  operator  either  allows  overwriting 
the  existing  file  (Input  :  PU)  or  renames  the  current  data 
file  (Input  :  any  alphabetic  character  other  than  T) .  This 
is  the  only  interactive  manipulation  in  the  subroutine.  The 
data  acquisition  loop  terminates,  printing  the  most  important 
data.  Accounting  data  are  written  back  into  the  control  array 
and  the  subroutine  returns  control  to  the  calling  program. 

DATA  FILE:  The  data  file  consist  of  13  records  with  a  length 
of  128  words  each,  so  that  1664  »  (128  *  13)  words  can  be 
stored.  The  default  file  name  is  T2rrss  (rr  . . .  ASCII  con¬ 
verted  run  #,  ss  ...  ASCII  converted  sequential  #) . 

VARIABLES: 

buffer  array  for  raw  data 
control  array 

data  control  block,  used  for  FMB 


IBUF  (1664)  integer 
CNTRL  (256)  integer 
IDCB  (144)  integer 
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calls 


IFILE 

(3) 

integer 

array  to  contain  current  file  name 

ISIZF 

(2) 

integer 

specifies  #  of  records  and  record 

length 

ISECTJ 

integer 

security  code  of  data  file 

ICR 

integer 

cartridge  reference  number ,  where 

data  file  is  located 

NOLF 

integer 

suppresses  line  feed 

NOCR 

(2) 

integer 

suppresses  line  feed  and  carriage 

return 

ICLR 

(3) 

integer 

clear  line  above  cursor 

IOXIM 

(9) 

integer 

array,  where  'A'  and  'B'  probe 

positions  are  written  into  in 

ASCII  code 

FSVLT 

real 

full  scale  voltage  of  A/D  con¬ 
verter 

IDCBS 

integer 

length  of  data  control  block  IDCB 

IPAGE 

integer 

counts  of  current  page 

I DOC 

integer 

counts,  how  often  this  subroutine 

is  called 

IDOCF 

integer 

count  of  current  data  file 

sequential  # 

ITYPE 

integer 

type  of  data  file 

IFRST 

integer 

standard  for  the  first  two 

characters  of  file  name 

ISP 

integer 

decision  variable,  used  to  space 

the  output 
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IL 

integer 

number  of  words  to  be  transferred 

in  FMP  calls 

LI 

integer 

LU#  of  standard  input  device 

(terminal) 

LO 

integer 

LU#  of  standard  output  device 

(line  printer) 

LSI 

integer 

LU#  of  scanner  #1 

LS2 

integer 

LU#  of  scanner  #2 

ISV1 

integer 

code  #  of  S/V  controller  #1 

ISV4 

integer 

code  #  of  S/V  controller  #2 

NRPTI 

integer 

#  of  various  KULITE  signals  to  be 

acquired 

NRPT2 

integer 

total  #  of  point,  taken  from  each 

KULITE  signal 

NRPT3 

integer 

=  NRPT2+  :  DO  loop  start  address 

I  MASK 

integer 

masking  variable 

IW 

integer 

controls  time  delay  between  closing 

S/V  port  and  reading  voltage 

IMON 

integer 

ASCII  converted  month  of  the  year 

I  DAY 

integer 

ASCII  converted  day  of  the  month 

IHOUR 

integer 

ASCII  converted  hour  of  the  day 

(24  hr  clock) 

IMIN 

integer 

ASCII  converted  minute  of  the  hour 

IYEAR 

integer 

ASCII  converted  last  two  digits 

of  current  year 

ICHNL 

integer 

A/D  input  channel  to  be  selected 

FREQ 

real 

RPM  of  the  transonic  compressor 
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CIM 


real 


immersion  of  the  combination  probe 


CYAW 

real 

yaw  angle  of  the  combination  probe 

PREP 

real 

KULITE  reference  pressure 

PREFR 

real 

KULITE  reference  pressure  as 

returned  to  the  calling  routine 

(either  CALIB,  ABSRV  or  TXC01) 

PI 

real 

P23 

real 

►pressures  P^,  P23  &  P4  from 

P4 

real 

calibration  probe 

E 

real 

Temperature  reading  from  sensor 

ahead  of  rotor  (in  mV) 

OE 

real 

Differential  temperature  reading 

from  station  ahead  of  rotor  across 

rotor 

XIM 

real 

Immersion  of  the  KULITE  probe 

YAW 

real 

Yaw  angle  of  the  KULITE  probe 

IA 

integer 

Variable  to  contain  contents  of  A 

register 

IB 

integer 

Variable  to  contain  contents  of 

B  register 

AVRGE 

real 

KULITE  output  average  voltage 

after  amplification  and  A/D 

conversion 

AVOLT 

real 

« 

A'  probe  output  average  voltage 

BVOLT 

real 

1 

B'  probe  output  average  voltage 

ISP 

integer 

control  variable  to  space  output 

IDUM 

integer 

decision  variable 
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I  ERR 

integer 

error  flag  returned  from  FMP  calls 

JSECU 

integer 

ASCII  converted  security  code 

JCR 

integer 

ASCII  converted  cartridge  reference 

number 

NEW 

integer 

variable  to  contain  changed  first 

two  characters  of  raw  data  file 

name 
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4.5.  SUBROUTINE  PACER: 

PURPOSE:  Control  data  acquisition  from  HP  5640  A/D  converter 
if  this  device  is  triggered  by  the  pacer,  store  data  in  file 
and  document,  all  steps. 

ARGUMENTS :  IREC 

IREC  integer  starting  record  #,  where  raw  KULITE  and 

additional  data  are  written 

EXTERNALS :  TIME,  ICON,  SCANS,  ACQN ,  RPACE,  PICTR,  CREAT, 
OPEN,  PURGE,  WRITF ,  CLOSE 

COMMON  BLOCKS:  CIBUF,  CONTR,  FMP .  For  detailed  description 
refer  to  the  TXCOl  description. 

MNEMONIC  ABBREVIATIONS: 

PU  ...  Allow  purge  of  an  existing  data  file 
RE  . . .  Repeat  data  acquisition 

ERROR  MESSAGES:  None 

PROCEDURE :  For  more  detailed  information,  study  the  flow 
chart!  The  subroutine  reads  the  accounting  data  from  the 
control  array  and  defines  FMP  parameters  (FMP:  file  manage¬ 
ment  package,  manipulates  disc  files;  refer  to  the  HP  manuals 
for  more  information) .  Next  the  I/O  references  are  assigned 
and  the  words  of  the  data  array  are  present.  If  CNTRL  (37) 
is  set  to  1,  the  heading  for  the  paced  run  documentation  page 
is  printed.  If  CNTRL  (38)  is  set  to  1,  a  key  to  the  print 
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out  is  printed.  Then  the  data  acquisition  loop  starts  and 
executes  HRPTl  times  (NRPTl  =  CNTRL  (230)  =  number  of  KULITE 
signals  to  be  acquired;  maximum  is  16).  If  CNTRL  (39)  is  set 
to  1  (i.e.:  subroutine  PACER  is  called  from  subroutine  ABSRV, 
which  takes  care  of  creating/opening ,  positioning  and  closing 
files) ,  the  accounting  of  the  data  file  names  is  skipped.  If 
otherwise,  i.e.  CNTRL  (39)  is  not  equal  to  1,  the  sequential 
number  for  the  data  file  name  exceeds  99,  the  first  two  char¬ 
acters  of  the  file  name  are  changed  from  T3  (default)  to  S3 
and  the  count  is  reset  to  zero.  Additional  data  is  acquired 
and  the  probe  positions  are  read  and  written  into  the  variable 
I0X1M.  Since  the  KULITE 
probes  are  mounted  in  phy¬ 
sically  different  posi¬ 
tions  (the  phase  angle  is 
90°,  i.e.  2h  times  40°, 
where  40°  is  double  the 
rotor  inter-blade  angle) , 
and  the  signals  must  be 
converted  from  the  same 
point  in  the  rotor  blade 
wake,  the  I BLADE  for  the 
'B'  probe  has  to  be 


increased  by  the  appro¬ 
priate  amount,  which 
is  576  (see  sketch) . 


The  operator  is  then  informed  that  the  system  is  ready  for 
the  next  data  scan.  Depressing  the  RETURN  key  starts  the 
data  acquisition.  Pacer  mode  (1  or  2) ,  selected  blade  pair, 
increment  to  step  through  the  256  blade  passage  locations  and 
the  number  of  measurement  repetitions  at  each  location  (i.e. 
at  each  IBLADE)  are  read  from  the  control  array.  If  the  pacer 
is  operated  in  mode  2  (i.e.  selects  a  specific  blade  pair), 
the  bit  15  is  set  by  adding  IADD  *  100000B  to  the  start  and 
stop  address.  Refer  to  the  RPACE  description  for  details 
concerning  how  the  data  acquisition  is  performed.  Not  only 
the  voltages,  through  subroutine  RPACE,  but  also  additional 
data  are  written  into  the  raw  data  array.  Some  of  the  data 
are  multiplied  by  1,000,000  in  order  to  be  able  to  store  all 
valid  digits  in  integer  constants  and  the  average  voltage 
AVRBE  is  set  equivalent  to  the  array  IAVERGE ( 2 )  by  an 
EQUIVALENCE  statement. 


Date  and  time  are  written  into  the  raw  data  array  also.  If 
CNTRL (40)  is  set  to  1,  the  wave  as  acquired  is  displayed  on  the 
terminal,  which  is  selected  by  its  logical  unit  number  LA.  Re¬ 
fer  to  the  detailed  description  of  subroutine  PICTR  for  further 
information  on  how  this  is  achieved;  i.e.  to  use  a  non-graphics 
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terminal  for  plotting.  The  resolution  of  the  terminal  plot  is 
is  very  limited.  The  option  to  display  the  just-acquired 
periodic  high  speed  signal  is  designed  to  give  the  operator 
an  opportunity  to  immediately  verify  the  correctness  of  the 
data  acquisition.  Connecting  a  lead  from  KULITE  amplifier 
output  to  an  oscilloscope  gives  the  investigator  the  chance 
to  check  digitized  data  against  original  analog  data.  If  an 
error  is  encountered,  the  data  scan  may  be  repeated  (Input  : 

. . .  RE) .  Depressing  the  RETURN  key  causes  the  subroutine  to 
proceed  to  the  next  task,  the  storing  of  the  data.  File  name, 
ASCII  converted  security  code  and  ASCII  converted  cartridge 
reference  number  are  written  into  the  raw  data  array.  The  raw 
data  file  is  either  created/opened  and  closed  by  subroutine 
PACER  (CNTRL  (39)  is  not  equal  1)  or  this  subroutine  is  called 
from  subroutine  ABSRV,  which  already  has  created/opened  and 
positioned  the  raw  data  file  and  will  close  it  (CNTRL  (39)  is 
set  to  1) .  If,  in  the  first  mode,  the  automatically  determined 
file  name  already  exists,  the  operator  either  allows  overwriting 
the  existing  file  (Input:  PU)  or  renames  the  current  data 
file  name  (Input:  any  alphabetic  character  other  than  T) .  The 
starting  record  number  is  also  written  in  the  data  array.  If 
CNTRL  (39)  is  not  equal  1,  the  raw  data  file  is  closed  and  the 
data  acquisition  loop  stops  printing  all  the  additional  data 
on  the  documentation  page.  The  accounting  data  are  written 
back  into  the  control  array  and  the  subroutine  terminates. 
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DATA  FILE:  For  more  detailed  information,  study  the  key  to  the 
raw  data  file  following  this  description.  The  default  file 
name  is  T3rrss  (rr  ...  ASCII  converted  run  #,  ss  ...  ASCII 
converted  sequential  #) . 

VARIABLES : 


IBUF 

(1664) 

integer 

buffer  array 

CNTRL 

(256) 

integer 

control  array 

IDCB 

(144) 

integer 

data  control  block;  used  for  FMP 

calls 

IFILE 

(3) 

integer 

array  to  contain  current  file 

name 

ISIZE 

(2) 

integer 

specifies  #  of  records  and  record 

length  in  words 

ISECU 

integer 

security  code  of  data  file 

JSECU 

integer 

ASCII  converted  security  code 

ICR 

integer 

cartridge  reference  number,  where 

data  file  is  located 

JCR 

integer 

ASCII  converted  cartridge  reference 

number 

NOLF 

integer 

suppresses  line  feed  on  terminal 

NOCR 

(2) 

integer 

suppresses  line  feed  and  carriage 

return  on  terminal 

ICLR 

(3) 

integer 

clear  line  above  cursor 

IBUF1 

(384) 

integer 

raw  data  array,  set  equivalent 

to  IBUF 

IOXIM 

(9) 

integer 

array  to  contain  probe  positions 

in  ASCII  code 
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IAVRGE  (2) 


integer 


IDCBS 

IPAGE 
I  DOC 
IDOCF 

IL 

ITYPE 

IFRST 

ISP 

LI 

LO 

LA 

LSI 

LS2 

ISVI 

ISV4 

NRPT1 


integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 


array  to  contain  average  voltage, 
set  equivalent  to  AVRGE 
length  of  data  control  block  IDCB 
in  words  (here  :  144) 
count  of  current  page 
count  of  current  program  run 
count  of  current  data  file  seq¬ 
uential  # 

number  of  words  to  be  transferred 
in  FMP  calls 

type  of  data  file  (here:  1) 
standard  for  the  first  two 
characters  of  data  file  name 
control  variable,  used  to  space 
the  output 

LU#  of  standard  input  device 
(system  console) 

LU#  of  standard  output  device 
(line  printer) 

LU#  of  auxiliary  output  device 
(auxiliary  terminal) 

LU#  of  scanner  1 

LU#  of  scanner  2 

number  of  S/V  controller  1 

number  of  S/V  controller  2 

number  of  KULITE  measurements 

('A',  'B',  case  KULITES) 
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IW 

integer 

time  delay  between  closing  S/V 

part  and  reading  transducer 

voltage  From  DVM 

IMON 

integer 

ASCII  converted  month  of  the  year 

I  DAY 

integer 

ASCII  converted  day  of  the  month 

IYEAR 

integer 

ASCII  converted  last  two  digits 

of  current  year 

FREQ 

real 

RPM  of  the  compressor 

CIM 

real 

immersion  of  the  combination  probe 

CYAW 

real 

yaw  angle  of  the  combination  probe 

PREF 

real 

reference  pressure  for  the  KULITE 

probes 

PI 

real 

pressure  P-^  from  the  combination 

probe 

P23 

real 

pressure  P23  from  the  combination 

probe 

P4 

real 

pressure  P^  from  the  combination 

probe 

E 

real 

thermocouple  output.  Station  'O' 

DE 

real 

thermocouple  differential  output 

from  'O'  across  rotor 

XIM 

real 

immersion  of  either  'A'-  or  'B* 

probe 

YAW 

real 

yaw  angle  of  either  'A'-  or  'B' 

probe 

IADD 

integer 

variable  to  be  added  to  start  and 

stop  address  for  paced  run  to 
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compensate  phase  angle  between 
these  probes 


IDUM 

integer 

decision  variable 

IPAMO 

integer 

pacer  mode  (1  or  2) 

IPAIR 

integer 

selected  blade  pair 

ISTART 

integer 

start  address  for  paced  run 

ISTOP 

integer 

stop  address  for  paced  run 

INCR 

integer 

increment  for  paced  run 

IRPT 

integer 

number  of  repetitions  at  each 

IBLADE 

Jill 

integer 

dummy  variable 

J222 

integer 

dummy  variable 

DUM 

real 

dummy  variable 

IERR 

integer 

error  flag  used  by  FMP  calls 

NEW 

integer 

scratch  variable  used  to  change 

file  name 
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AD-AU3  895 
UNCLASSIFIED 


BDH  CORP  MONTEREY  CA  /  F/6  5/8 

TRANSONIC  COMPRESSOR:  PROGRAM  SYSTEM  TXCO  FOR  DATA  ACQUISITION  — ETC(U) 

N00014-78-C-0204 
NPS-67-80-Q2CR  NL 


OCT  80  H  ZEBNER 


m 


nxtf  Wuures. 

IrsJcmM  -Uut  !** 


Tf*HO‘C*rr*t.  (2+d) 

Z****CMKU220 


-CALL  *IQTX 


I 


4 . 6 .  PROGRAM  LISTING  TXCOl 


PAGE  0001  FTN. 


2 i 47  PH  HON.,  25  AUG.,  1980 


000| 


FTN4 , L 

BLOCK  DATA 

•SSI  'tMV, 

0005  INTEGER  IDCB< 144) , IEXLEC3) , ISIZE(^) 

0006  END 


8, 051 


PTN4  COMPILER i  HP92060-16092  REV.  1926  (790430) 
**  NO  WARNINGS  **  NO  ERRORS  ** 

BLOCK  COMMON  FHP  SIZE  -  00151 


,  ICR 
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PACE  0002  FTN. 
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0007 

111! 

0011 


BLOCK  DATA 


INTEGER  IBUF  < 1664) 
END 


> 


FTN4  COHPILER:  HP92060-16092  REV.  1926  <790430) 
t*  NO  WARNINGS  **  NO  ERRORS  ** 

BLOCK  COHHON  CIBUF  SIZE  -  01664 
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m 

0014 

0015 

0016 


•rnoW' 


/  CNTRL<256> 


COMMON  /  CONTR  /  CNTRL 
INTEGER  CNTRL (256) 

END 


FTN4  COMPILER)  HP92060-16092-REW .  1926  (790430) 
t«  NO  WARNINGS  «*  NO  ERRORS  ** 

BLOCK  COMMON  CONTR  SIZE  -  002S6 
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0017 

0018 

88  hi 

0021 

II! 

0024 

0028 


0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0039 

0040 

0041 

mi 

0044 

004S 

0046 

0047 

0048 

0049 

0050 


0056 

0057 

881? 

0060 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


PROGRAM  TXCOi  <3,99) 


The  operating  systen  RTC  IV  8  request*  the  data  acquisition 
progran  TXCO  for  the  one  stage  transsonic  conpressor  to  be 
split  into  several  programs  schdvled  by  the  father  progran 
progran  TXCOO .  This  ton  progran  TXCOi  consists  of  the  sub¬ 
routines  ABSRV,  CALIB,  FREER  and  PACER.  These  handle  the 
acquisition  of  high  speed  data.  The  data  transfer  between 
father  and  son  progran  takes  place  via  the  control  array 
file  CONTR  (disc  file  CNTRLF)  and  the  data  array  IBUF  (disc 
file  I BUFF) . 

The  utility  subroutines  ACQN,  CNTL ,  CURVE,  ICON,  IPORT, 
PICTR ,  REWRF,  RPACE,  SCANR ,  TIME  and  WAIT  are  added. 

Author:  Hans  H.  Zebner 

Date  Harch  12,  1980 

A  detailed  progran  description  is  available  in  the  TXCO  log. 
Connent  statenents  ans  statenent  nunbers  in  the  source  code 
natch  to  yhe  progran  description.  This  progran  is  part  of 
the  TXCO  transonic  conpressor  investigation  progran  systen. 


*,  First  son  proqran  of  father  progran  TXCO. 
COMMON  /  CONTR  /  CNTRL 
INTEGER  CNTRL(2S6) 

DATA  NOLF  /006537B/ 

101  FORMAT  <  9X“ *20X*  *A2) 

102  FORMAT  (“  TXCQ0  :  PROGRAM  ABORTED! 

SEN  INITIALIZED.*) 

801  FORMAT  CCA") 

1001  FORMAT  (-F1R7M3A1H0T3*) 

1201  FORMAT  < "PF4C6T" ) 

1501  FORMAT  CCA*) 


NO  SUBROUTINE  HAS  BE 


uL-  PSE<UV2) 

IF  <  CNTRL1S0)  .LT. 


.OR.  CNTRL (50 )  . GT .  4  )  GO  TO  05 


Set  interface  bus  and  daviccs  to  renote  control. 


tALL  AfeRt  <*,£> 
CALL  RMOTE  (8) 
CALL  RHOTE  (10) 
CALL  RMOTE  (12) 
CALL  RMOTE  (15) 
WRITE  <  8,  801) 
WRITE  (10,1001) 

ttiTI  Hi;  till  i 


w  w  W 

III 


I3T0P  ■  CNTRL (50) 

If  1  gRfitfli  .18:  h  \  BShb 

IF  <  CNTRL (50)  , EQ.  3  >  CALL  FREER  <X1,X2,X3> 

IF  <  CNTRL ( 50 )  .EQ.  4  >  CALL  PACER  (1) 


CALL  CLEAR  (7,1) 
CALL  LOCL  (7) 

CALL  REWRF  (1,2) 
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02  STOP  0277 


NOLF 

04)  I8T0P 


__  STL  _ 

03  STOP  0377 
04  STOP  0477 
Oi  ggJTE  (LI, 


102) 


FTM4  COMPILER i  HP920&0-16092  REV.  1926  (790430) 

««  NO  WARNINGS  **  NO  ERRORS  t*  PROGRAM  ■  00257  COMMON 


00000 
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SUBROUTINE  ABSRV 


Subroutine  to  acquire  High  speed  data  from  the  1-stage  axial 
transonic  compressor  using  miniaturized  probes  equipped  with 
KULXTE  semiconductor  pressure  transducers. 

Author:  Hans  Zebner 

Sate*  August  12,  1980 

A  detailed  proqram  description  is  available  in  the  TXCO  log. 
Comment  statements  and  statement  numbers  in  the  source  code 
match  to  the  program  description.  This  subroutine  is  part  of 
the  TXCO  transonic  compressor  investigation  program  system. 


M,  takes'  data*  trim’  the  ' lA* ' -'  ‘-'probe  system'. .  ’ 

COMMON  /  CIBUF  /  IBUF 
COMMON  /  CONTR  /  CNTRL 

COMMON  /  FMP  /  IDCB , IFXLE , IS1ZE , ISECU , ICR 
INTEGER  IBUF (1664) 

Integer  cntrl < 2S6 > 

INTEGER  IDCB(144) , IFILE(3> ,ISIZE(2) 

REAL  P08(7) ,RBUF(64) 

INTEGER  NOLF , NOCR ( 2 ) , ICLR ( 3 ) 

EQUIVALENCE  (IBUF(l) ,RBUF(1>> 

DATA  NOLF  /006S37B/ 

DATA  NOCR  /000033B,040433B/ 

DATA  ICLR  /0 15524B , 0 15515B , 0 06537B/ 

DATA  IDCBS  /144/ 

C  FORMATS  (ADSRW  STAR  T 

101  FORMAT  <"  Did  tht  typ*  typ*  probes 

102  FORMAT* <A2)  ’  ’ 

103  FORMAT  (/"  "79X""A2/"  Since  you  forgot  to  calibrate 
bthese  nice  probes,  I  will  do  it  right  now. "6X"‘A2/‘  P 
tress  the  RETURN  key  to  continue  the  execution  of  the  p 
Program! "16X“A2/"  s79X""A2/> 

104  FORMAT  (*  ABSRV  :  CALL  CALIB") 


105  FORMAT  (/"  Enter  the  following  results  from  the  on  line  cali 
tbration !  •  5X-V 

t"  PBARO  PREF  AVRGEA  AVRGEB 
*  3L0PEA  SECONA  8L0PEB  SECONB*/ 

|«  -  ?<»  •) 

106  FORMAT’  <1XJF7. S’, IX, 7(F7.i,iX>> 

107  FORMAT  < "  How  many  yaw  positions  for  the  type  'A'  and  type  ' 
*B»  probe?  ’,,2(i")  ,2A2) 

108  FORMAT  (‘WARNING:  file  "3A2"  already  exists!  Type  PU  to  ■ 
fallow  purge  or  enter  any  char-", 

110  FORMAT  ( Al‘l " ) 

111  FORMAT  (*  ABSRV  :  File  name  "3A2"  sueeesfully  changed  to  "3A2) 

112  FORMAT  (‘  ABSRV  :  CREATE  ‘3A2‘ : "A2" : ‘A2" : •{ 1* : "12" : ‘I3> 

113  FORMAT  < ""15X"Read  the  probe  positions;  Yaw  Anqle  and  Immersi 
*00 .  14X  A2 ) 


114  FORMAT  <"  Ent «r  cam*  anal* "34X,2A2> 

*■  Combination  probe  "F10 .3,10X,F10 . 3""/ 


t" 

*■ 

I* 

*;Typs 


Type  »A»  probe  ‘F10 .3,10X,F10 . 3“/ 
Type  »B*  probe  "FS9 .3ll0X;F10 .3""// 
Case  angle  "20X""f*10  .$••// 

UP  to  update  those  readings”/ 


t“  TA  gto  take  a  data  sat  at  this  constellation"/ 

WHS  ERSf?‘;55*i;i-  . . .  . 

*^|aw  position  for  obvious  errors!  *18X“A2/“  "79X"" 

*"  Type  RE  to  repeat  this  point"48X""A2/ 
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t“  HE  to  proceed  to  the  next  polnta40XaaA2/ 

**  •  EN  to  terninate  the  * A'-'B’-pr obe  survey  at 

P°int“A2/ 

I|)(b  <•  2(MM)  2A2) 

118  FORHAT * ( •  Error:  You  want  to  proceed  to  the"I2".  positio 
*n,  but  the  data  array  onlya8xa*A2/ 

**  can  store*X2a  position*,  that  you  defined  preuiuosly I "37X" 
*aA2> 

149  FORHAT  <aa<<3A2>>> 

601  FORHAT  ( 1H  ,  15(1H  )  ,33HTran**onic  Comretoor  Test  Run  •  ,17) 

602  FORHAT  <1H  a3(iH  >;6HDaT*i  , A2, 1H/, A§, 1H/.A2) 

683  FORHAT  < 1H  *",28(1H  ).6HTine:  ,A2,1H. ,A2,3H  h ,/////> 

604  FORHAT  ( 1H  ,  aaL/7///,a*  _ 

~  *  *»--  ~  P  coast  »  1_3 .  ", 

605  FORHAT  <•  ^3X--//“*-41X"  “  I  a  *•  .  Yaw  pomi.-tJ.ona) 

606  FORHAT  J2  "  .  Yaw  position*/'  -7?<-a) 

607  FORHAT  (a 


,2B( 1H  ) ,6HT ine t  ,A2,1H. ,A2,3H  h> 
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Q2S0 


Call  subroutine  CAL IB  ts  calibrate  ' A'-'B'-probe  systen. 


Wit*’ (Lifter  iNdtf;iii*,4;ii 

READ  (LI,  102)  IDUM 

WRITE  (LI,  149)  < ICLR ,1*1,7, 1 > 

iSSs  2M“  >  si°* 0 


0102 


own  Aib  vLii 

CALL  CALIB 


C 

C 


Enter  calibration  results)  print  heading. 


02  wRitfe'  . . . . . . .  ’ 

wIlTE  ai’  149)  A ^ SECONA ^  SLOPES , SECONB , AURCEA , AYR CEB , PBARO 

CALL  TIME' ( XMON , IYEAR \ IDAV , iHOUR , IMXN) 

WRITE  <LO,  Ail)  CNTRLM) 

%l7rl  till  »!®”M 

WRITE  CLO >  604)  I PACE 


ill! 


03 


Initialize  data  acquisition)  creata  raw  data  file  of  the 
correct  size.  If  the  file  none  assigned  to  this  data  sat 
already  exists,  the  operator  decides,  whether  to  purge  the 
already  existing  file  (PU)  or  change  this  file  nans. 


wRitfe*  (Li/ia^rteii* 

5|f?E  M>  s) 
ISIZE(l)  i 
IF  <  IDOCF 
IFR8T  ■ 

iHEfim : 

IFILE(3>  - 

04  ^Lv  mr 


0? 


149)  ICLR 
1+NPQ3*6 

.LT.  100  >  CO  TO  03 
2MS1 

I CON < IDOCF, 0) 

<  pCB  ,|eRR£|F^E4ISIZE  » ITYPE ,  ISECO ,  ICR ,  IDCB8) 


0103 
TO  OS 


WRITE  (LI,  108)  IFILE 
READ  (LI,  102)  IDUM 

WuM‘  w.  wm, 

JSECU  »  ICOM(ISECU.O) 

IF  (  IERR  .LT.  0  )  STOP  0104 

05  SftVECO“k,U0>  IDUM 

WRITE  <LI,  111)  IFILE, NEW, IFILE(2),IFILE(3> 

IFILE ( 1 )  i  NEW 
GO  TO  04 

06  CALL  OPEN  ( IDCB , IERR .IFILE , IQPTN , I8ECU , ICR , IDCB8 ) 

if  (  ierr  ,lt.  o  )  Stop  oios 

. . 


IREC 

5fL( 


*H7 


)*A 
IERR 
0  ) 


F .768, IREC) 


cjHT.JSr 

}!lcu  :  lEaBSISS^t'’ 

WRITE  (LI,  112)  IFILE, J8ECU,JCR,ITYPE,ISIZE 


0&4 
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ip  8 

ill  8 

8  1 
333  C 
C 


£ 

w 


Position  th«  raw  data  fila  is  dona  bv  subroutine  ABSRV.  The 
actual  data  art  written  in  the  data  fila  by  subroutine  PACER. 
CNTRL(37)  is  set  to  i  in  order  to  suppress  printing  a  heading 
In  subroutine  PACER.  CNTRL(39)  is  set  to  1  to  tell  subrou¬ 
tine  PACER  not  to  creata/opan  and  close  a  new  data  file. 


08  IpSI  -  $P08+1 
IF  (  IPOS  .GT. 
0?  CNTRL(37>  ■  1 

mtm :  r°8 


NPOS  >  GO  TO  19 


IF  (  IPOS  .EG.  1  )  WRITE  (LO,  60S)  IPOS 
IF  <  IPOS  .GT.  1  >  WRITE  (LO,  606)  IPOS 

IREC  ■  2t-<IPQS-l>*6 
CALL  P08NT  ( IDCB, IERR . 1 , IREC) 

IF  (  IERR  .LT.  0  )  STOP  0107 


0349  C 
3S0  C 

i  8 

3  C 


Check  position  of  probes  before  acquiring  data. 

10  WRltE'  <Ll'  ' ii3)‘NdLF . . 

ii  :i 

DO  11  J-30.3S.1 
POS(Z2)-  SCANR ( LSI , J , I C > 

11  12  «  I2+1 

12  P8«m  J?*#3d?jmo«8 . 

DO  13  J-2.6.2 

13  otm*  artta*  • 

WRITE  (LI,  114)  NOCR 
READ  (LI,  *)  P0S(7> 

14  wUlTf  (tij  11?)  f^08(J),J»l, 7,1), NOCR 
READ  (LI,  102)  IDUH 

W  ‘KbMVMo 

IF  (  IDUH  .EG.  2HTA  >  GO  TO  IS 
IF  (  IDUH  ,EQ.  2H0S  )  STOP  0110 


WRITE  (LI , 
IF  (  IDUH 
IF  (  IDUH 
IF  (  IDUH 
GO  TO  14 


Acquire  data  in  subroutine  PACER. 

is  wiitfc' (Li! ’ ii*> ' iA£d . 

CALL  PACE*  (IREC) 


Select  the  next  stapt 

RE  repeat  the  data  acquisition  at  this  yaw  position 

HE  proceed  to  the  nact  yaw  position 

EH  terminate  the  survey  at  this  operating  point 

i6  . 

READ  (LI,  102)  IDUH 

WRITE  (LI,  149)  (ICLR, >1.9.1) 

IF  (  IDUH  ,EQ.  2HNE  >  g6  tfi  08 
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ISIS  \  88 }%  » 

2HS*  >  STOP  0111 


Step  data  acquisition.  Write  additional  data  <i.o.  barome¬ 
tric  pressure,  calibration  results,  number  of  points  and  yaw 
positions  into  first  record  (Directory)  of  the  data  file. 


17 


NtlNUE 

__  18  1*1. 128.1 
18  IBUF(I)  *  02S0S2B 


RBUF ( 3 )  - 
RBUF(4)  - 
RBUF  <  5 )  ■ 
RBUF (6)  * 
RBUF ( 7 )  * 
RBUF(8)  - 

bH^hS 

zrIc  * 

CALL  WRZTF 
IF  (  IERR 
CALL  CLOSE 
IF  <  ZERR 
WRITE  (LO, 


NPOS 
PBARO 
PREF 
AURGEA 
AVRGE8 
SLOPEA 
SECDNA 
SLOPE? 
SECON 
(IBt  _ 


BUF ( 96 ) , ZBUF (104) ,IBUF(112) ,IBUF(120> ,ZBUF(128)) 

!J?CB’HW4Ii![iIREC> 

( ZDCB , I ERR ) 

.LT.  0  >  STOP  0113 
607)  IBUF ( 120 >,IBUF( 128) 


Terminate  subroutine)  write  accounting  variables  back  into 
control  array. 


fcNtfcLteiii'i’ttAfcE' 


CNTRL(213)  - 
CNTRL (  SO)  - 
RETURN 


IDOC 

-1 


Error  returns. 


ip  m t tr ■  ( a ;  •  i i6 r  tPt* ; Met ml t 

iSoTO  17 


FTN4  COHPZLERt  HP92060-16092  REV.  1926  (790430) 
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SUBROUTINE  CALIB 


Subroutine  to  control  the  on  line  calibration  of  the  KULXTE 
type  'A'-’B'-probe  system. 

Authori  Hane  Zebner 

Date i  August  13,  1980 

A  detailed  program  description  is  available  in  the  TXCO  log. 
Comment  statements  and  statement  numbers  in  the  source  code 
match  to  the  program  description.  This  subroutine  is  port  of 
the  TXCO  transonic  compressor  investigation  program  system. 


*) ' dn-iine  calibration ’ of ‘ KULITE'  probes! * '  '  *  ’  ’  . . 

COMMON  /  CONTR  /  CNTRL 
INTEGER  CMTRL<256> 

INTfe(^NOCR(ai!lCLR<3)!iTIMi<S);id<^<l0> 

8a?A  N&R  /OOoIm?^  0404338/ 

DATA  XCLR  /01S524B,0t55iSB,006S37B/ 

C  .  P-qRMATS  CALIB  START 

101  FORMAT  </“  •79X“BA2/*  Apply  defined  reference  pressor 
*e  to  KULXTE  pressure  transducers!  Input  DMM  “A2/ 

**  multimeter  read  out  to  initialize  calibration,  RE 
•to  repeat  this  part  of  the  “A2/ 

•  calibration  or  EN  to  terminate  the  on  line  calibr 
•ation! ■21X«;a|/«  -79X--/ 

102*FORMAT  <SA2>  * 

103  FORMAT  (F10.6) 

104  FORMAT  <"  CALIB  «  CALL  FREER • > 

105  FORMAT  <■  Switch  PACER  to  free  run  mode}  then  press 
*CR  to  continue!  *3A2> 

106  FORMAT  (■  Switch  PACER  to  pacer  run  model  then  press 

•  CR  to  continue!  "3A2> 

107  FORMAT  <■  CALIB  i  CALL  PACER (" 12 ■)"> 

108  FORMAT  <•  Error!  You  did  not  perform  a  calibration  at  ail 
•! "30X*  A2) 

109  FORMAT  <“  Errort  Please,  ask  yourself  honestly,  whether  j 
•ust  one  point  is  suff icient"4Xt“A2/ 

•"  to  give  an  accurate  calibration  curve  fit?  I  frankly  doubt 

•  it!  1SX  A2) 

149  FORMAT  <<3A2>> 

601  FORMAT  < 1H  ,15<1H  > ,33HTranssonic  Compressor  Test  Ron  •  ,I7> 

602  FORMAT  <1H  ;28<1H  >,6HDates  , A2, 1H/.A2, 1H/.A2) 

603  FORMAT  <1H  ,  —  ,28UH  >,6HTimei  ,A2,iH, ,A2,3H  h, /////) 

•’vnr  ... . 


mrm»pnrrrr 


/  j fY*  *  "  wwuijue— w.: 

605  FORMAT  {/•  «JJ 

606  FORMAT  </"  Col 
»■“/) 

~SU7TORMAT  ( //lXT.l n  1.  ibi 

608  FORMAT  <  1 X " AyOL'tT* ’TT^ 
•F8.6"  DMM( “Il">m,F8.6> 

609  FORMAT  (/IX’Tvpw  * 
•IX “SLOPE  ■l'FIE.&-y"r%Et;UI 

610  FORMAT  </lX""T  v  p  us  » 


t.»  •/) 

RPRE8( “Il“>« 


*,20UH  )  , 6HT ime t  ,A2,1H.  ,A2,3H  h> 


115 


c 


FORMATS  CALIB 


Accounting . 


\ 


STOP 
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0533  C 


IPAGE 

IPACE 


■  CNTR  1.(214) 
-  IPACE+1 


C 

c 

c 


I/O  Assignments)  print  hsading. 


Lti’6*ltft£.(i*5 . 

LO  »  CNTRLOQ ) 

( loi) '  mdw*  *  ihour  *  imim> 

WRITE  (LO,  602)  IMON, IDAY . IYEAR 
WRITE  (LO,  603)  IHOUR,IMIN 
*04>  IPACE 


C 

c 

c 


c 

c 


Limit  on  linn  calibration  calibration  to  two  A/D  channels, 
that  contain  tho  type  'A*  and  'B'  probe  output  voltaqo. 

Tho  currant  value  of  CNTRL(230)  is  tonporaryly  stored  in 
tha  variable  ITEHP. 


iprtEO‘i‘tNtliL(iS0) 
CNTRL(230 )  -  2 


8 

8 

c 

c 

c 

c 


01 


02 


act  tha  naxt  step  i 
E  Repeat  this  point 

EN  Terminate  the  on  lina  calibration 

any  number 


Proceed  to  the  next  point 


u4itfe  (Li,  i6i>  (NdL£,i-i,$,n 
READ  (LI,  102)  10 
"  *  149) 

.EG). 


WRITE  (LI, 

if  I  IS  III 


IF  <  10(1) 

Idum  •  o 
DO  02  1*1,5, 1 
IF  <  IO(li  .NE. 
IF  (  IDUH  .EG. 


01 

2HEN  >  CO  TO  10 


2H*»  )  STOP  0201 


m  w 


2H 


IDUH  »  1 
GO  TO  01 


103)  DM 


C 

C 

c 

c 

c 


Taka  fras  run  data  at  a  defined  ffafereaca  pressure 

o 

03  ifrtSii . 

DMH(IPTS)  ■  DM 
04  WRITE  (LI,  104) 

WRITE  (LI,  105)  NOCR 
READ  (LI,  102)  IDUH 
WRITE  (LI,  149)  ICLR 

fa  zt„ iH-  *  ™  02,2 

WRITE  (LO.  605)  IPT8 

CALL  FREER  ( AVOLT( IPTS) ,BUOLT( IPT8) ,RPRES( IPT8) ) 
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0628 


OS 


06 


teltet  the  neut  itni 


IS 

any  nunber 


Jepeat  this  paint 
erninqte  tha  an  lina  calibration 
roceed  to  the  noxt  point 


MitrtLirmr  . 

READ  (LlJ  102)  10 

T*x&VIi  1S.<xW*1>1rf,tt  04 
iHiKIS  :la:  ISI5I  t  i?cJ°o^3 
SS'VlSi.S,! 

:neS:  3"  \m0\k 

CODE 


5S  to‘o§,103>  dm 


0644 


0648 

0640 


Take  paced  run  data  at  ona  defined  reference  pressure. 

07  irrtWIW/TSWtd’ii . 

CNTRU37)  «  i 
CNTRL(38>  >  1 

8K5E  (hi;  Ut!  m 

WRITE  <LI,  149)  ICLR 

IF  <  IDUH  . EQ.  2HSS  )  8T0F  0204 

m*  <LI,"i ^7)  IREC 
WRITE  <LQ.  606) 

CALL  PACE A  (IREC) 


0660 


Calculate  linear  curve  fit  through  data  points. 


. 

"  afCcikS*  <  {?T8!*8oLVI«p«ti:S!8>i!ifa4(?f ,e,<  1 '  > 1  •  «"< 1  > 


Ternlnate  subroutine i»?ri to  accounting  variables  back  into 
control  array;  set  CNTRLC230)  back  to  i 


its  previous  valua. 


09  tttttr&l'-'-i' 

WM  311 :  iz 


mm\ : 


IHOUR,IHIN) 


RETURN 
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PROGRAM  -  01S25 


COMMON 


PACE  0015  FTN.  2t47  PH  MON.,  2S  AUG.,  1980 


0697 

0698 

tell 

0701 

0702 


C 

C 

C 

C 

C 

g 

c 

c 

c 

c 

c 


SUBROUTINE  FREER  ( AVOLT ,BVOLT ,PREFR> 


Subroutine  to  acquire  data  using  the  HP  5610A  A/D  converter, 
if  the  A/0  converter  is  operated  in  free  run  node. 

Author:  Hans  Zebncr 

Date)  August  14,  1980 

A  detailed  program  description  is  available  in  the  TXCO  log. 
Connent  statenents  and  statenent  nunbers  in  the  source  code 
natch  to  the  program  description.  This  subroutine  is  part  of 
the  TXCO  transonic  compressor  investigation  program  systan. 


takes'  data'tron'  kuiLitfe'probesj  ‘A/O'tree  run' node.’ 

COMMON  /  CIBUF  /  IBUF 
COMMON  ✓  CONTR  /  CNTRL 

COMMON  /  FMP  /  IDCB , XF1LE , ISIZE , 1SECU , ICR 

INTEGER  IBUF ( 1664) 

INTEGER  CNTRL (2S6> 

INTEGER  IDCB<  144 >  ,  IFILE(3>  ,  ISIZE<2> 

INTEGER  NOLF ,NOCR (2) , ICLR<3) , I0XIN<9> 


Bata  nolf 

ATA  NOCR 


/Q06537B/ 

/000033B, 040433B/ 
/015524B, 01S51SB, 006S37B/ 


mu 


DATA  ICLR 
DATA  FSVLT 
DATA  IDCBS  _  _  , 

l-ORMATS  l-REER  ST/*RT 
101  FORMAT  {  ""27X"acquir ing  additional  data*27X""A2> 

"  <"B  "F7.6>9.6> 

<*A  •F7.6.F9.6) 

( 18H  Hall  KULITE) 

( " “28X"aegu  Lr ing  data  from  A/D"28X""A2> 

< ""24X"calcuiating  the  average  voltaqe"24X"V 
( ““26X  "storing  data  in  file  *3AH,26X'*"A2) 

< "WARNING:  file  "3A2"  already  exists!  Type  PU  to  ■ 
♦"allow  purge  or  enter  any  char-", 

*/,"  acter  but  T  to  change  file  name."38X) 

109  FORMAT  ("  FREER  :  PURGE  "3A2* ) 'A2" : "A2> 

110  FORMAT  <A1"2"> 

111  FORMAT  <"  FREER  :  File  name  “3A2"  succcsfully  changed  to 

148  FORMAT  </3A2> 

149  FORMAT  U3A2>> 


102  FORMAT 

103  FORMAT 

104  FORMAT 

105  FORMAT 

106  FORMAT 

107  FORMAT 

108  FORMAT 


•A2> 


•3A2) 


601  FORMAT  ( 1H  ,1S(1H  ) ,33HTranssonic  Compressor  Test  Run  • 

602  FORMAT  <1H  ,28<1H  ),6H»atei  , A2, 1H/. A2, 1H/, A2> 

603  FORMAT  <1H  ,"“,28<1H  >,6HTimei  ,A2,1H. ,A2,3H  h, /////> 

604  FORMAT  <1H  ""I/////, 8*  ’  ’  . ' 


>  17) 


m 

606 

■mm 

607 

w  r  **  v 

lltl 

608 

60S  FORMAT  </lX»"72X""/lX""72X»"/ 

*  IX"  A/D  input 

IX"  8  sample  channel 

•  polnts"/lX""72X""/ 
lX"Conbination  probe i “S4X""/ 
lX"innersion  yaw  a.  pi 

dT  ■/iXB"72X""/ 

1X*KULITE  probe:  reference 

starting"/ 

IX" immersion  yaw  a.  pressure 
file  record  8"/lX""72XgV) 
IRMAT  ( 1H  >  '  " 


*  Tt 

. f  ile  record 


p23 

rotor 

RPH 


FORMAT  ( lX""72X""/lX""2I9,4SX,I9""/iX*"7F9 .6. " 
*"9X""/1X4"9A2,F9.6,I9,F9.A,Ix,3A2":"A2“: "Ai,l9* 
«1X"»72X""> 


p4 

average 

voltage 


",28(1H  ) , 6HTine :  ,A2,1H, ,A2,3H  h> 


120 


0767  901  FORMAT 

8?  6$  902*F0RMAT 

9770  C  FORMATS 
0771 


(  *  ?ALU*ExiSE?TPoj?BC?(l>t-I4“^?3* 

<*  A  REGISTER  id  “R6"  B  REdlSTEI 


!=•«  ISI-R  STOP 


-  ,  ,4) * > 

REdlSTER  IS 


•K6/) 


121 
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0774  C 
I77S  C 
0776  C 
777  C 


S’ll 

I 

0708 

m 

0791 
0792 
0793 
0794 
079S  C 

0797  C 

m  g 


c 

0832  C 


Accounting . 


it  Mi' 


IDOCF 


j#i 

!I?8T 

IL 


. 

IPAGE+1 
CNTRLC31 ) 
CNTRL<30) 

13 

igSN(CNTRL(4)>0) 

H 

1664 


I/O  Assignments}  prtsst  data  array. 


00  01  1-1; 
01  IBUF ( 1 ) 

LI 

LO 

LSI 

VBt 

NRPT 1 
NRPT2 
NRPT3 
I  MASK 
IU 


1664,1 


CNTRL<71) 

shuhi i> 

aWki!B4> 

177700B 

CNTRL<2S0) 


Print  heading ,  unless  CNTRL137)  is  set  to  1, 

M'VmkLl&V’.tky'l'yWib'ii . 

SftVtMES/ iff?? '  ' 1H0UR ' lnxM> 

WRITE  <L0 ,  602)  IMON.IDAY. IYEAR 
WRITE  <L0,  603)  IHOU*,IMIN 

02  IFIIECnV8i1(!!)>  ?eS?E  1  >  WRITE  <L0,  60S) 


Start  data  acquisition  loop. 


ifSftwL  «CNTRL<230+?i> 
IDOC  »  I DOC+1 
IDOCF  •  IDOCF+t 

100)1 

IDOCF  -  IDOCF-100 
IFILEU)  •  IFRST 
IFILE(3)  -  ICON < IDOCF, 0) 


jiiiiNRPti’,!*  * ' 

iLy»yM] 


CO  TO  03 
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08S9 

0860 

8861 

0862 

°oi£ 

oltl 

0867 

0868 

oil! 

0871 

•f 


0915 


8 

C 

8 


c 

c 

c 

c 

c 


Acquire  additional  data  required  fur  reduction  procedure 


m 

PREFR 

PI 

?S3 

§E 


§Ca3r( LSI, 30,1) 


PREF 

ACQN< I8V4 ,  3, 1U> 
*“'1M(ISV4,  4 ,  IW) 
N< ISV4,  S,1U> 
,18,1) 


$88 


5CANRCLS1 
SCANR (LS2 


;i9,'l> 


Get  correct  probe  poeitione. 

i*’n£HNL'':ifc:'*6‘rfc6’t6’64’’’ 
IF  (  ICHNL  .13.  1  )  GO  TO  OS 

GO  TO  06 


Type  'A'  KULXTE  probe  (on  A/D  input  channel  0). 


XIM  «  SCANR (LSI, 32,1) 

2«L  C0D!CAf",<LS1'33,1> 
WRITE  ( XOXIM,102)  XIM, YAW 
GO  TO  07 


Type  'B*  KULITE  probe  (on  A/D  input  channel  1>. 


xiM  -  sfcANA<Lfci,54,H 
YAW  •  SCANR (LSI, 35,1) 
CALL  CODE 

gRITg  (£OXIH,103)  XIM, YAW 


Wall  KULITE  (on  A/D  input  channel*  2  and  higher), 


fcAi.iL’ 666* 


WRITE  (XQXIM,104)  . 


Preeet  unoeed  olonents  of  data  array  IBUF, 


iA'  ('nrpt^'  '  '.feq'. '  ’1664’  >  ’66' to'  6*’ 

DO  08  J2-NRPT3, 1664,1 


PAGE  0018  FREER  2i47  PH  HON. ,  25  AUG. ,  1980 
08  '  IBUF(J2>  -  0000000 


0926  C 


Read  voltage*  fron  A/0  converter  into  data  array  IBUFj 
Starting  eXenent  i*  XBUF(l))  A/0  i*  operated  in  the 
free  run  nod*  (4). 


ttttfe‘i£j;‘ittrAA£* . 

gAL^EXEC  (1«>1Q0000B,20,IBUF(1> , NRPT2 , ICHNL , 4 ) 

(  IA, IB) 

GO  TO  21 


Caleulata  awaraga  voltage. 


WitE’  (LX ! *  106) ‘ NOLF 

xbu£?jI?«iAn8(  ll(i£(  T, 

AVRGE  -  0.0 


(  J2) , IMASK) 


AVRGE  i2AV^GE>F^6AT ( I BUF  <  T2 ) 
AVRGE  •  F8VLT*  <  <  AVRCE/32768 . 


?0>/NRPT2> 


Write  average  XYLITE  voltage  (after  anplif ication  and 
conversion  to  digital  notation)  into  AVOLT  and  BVOLT ,  da 
pending  on  what  signal  has  been  digitized)  The  type  'A' 


probe 


on  A/0  input  channel  0  ana  the  type  »B'  on  1. 


it'  ('icHNiL’ '  '.fe&r  *ft,>,A$aLt’-'Av6&‘ 

XF  <  ICHNL  .EQ.  1  >  BVOLT  -  AVRGE 


F^<  XSPo  .LT.  5  >  GO  TO  IS 

CMTRL|gjJ7>  .ME.  1  )  WRITE  <LO,  606> 


Save  data  in  file. 


wrxte'  <lx! ’ii^i'iFiLfciNOLF . ' " 

fm  $  'mm? 

Js“  -■  faBMiarart** 

BESiki*  )!U,  5ft8:0?ES:JS8eu.i 

Is  foX16*  ,LT’  #  *  ®T0P  °’0a 

CALL  COM 


> I TYPE , X8ECU > ICR > I0CB8 ) 


17 
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•99? 


ms 


100* 

m 

1004 

1005 


ttt 


ill! 

mi 

1013 

1014 

mi 

1017 

1018 
1019 
102' 
1" 


0 


m 


10 

1024 

m 

1027 

1028 
1029 

III! 

m 

1037 

Ill? 

1040 

1041 


1045 

ib 


1048 

1049 


18 


WRITE  (NEW, 110)  XDUH 

??l^i(l)1i  ftfr  IFILE,NEW,IFILE(1>  ,IFILE(2) 

! i?CB ' Fr&P-ltW™'1**™’10* > 1DCB8> 

r  mV  (iaCB,IERR.IgyF.IL> 


m  mv 

'fP-'i  MP  !£P*lT4ttp  0305 

nm 

JCR  -  XCON( XCR ,0  < 


C 

C 

s 

c 


19 


Stop  data  acquisition  loop. 


'  MitE'aoi  ‘id*}  ‘io6cj.icHNi.;NRPti!6iHi6YAoi>i>2i>4ifeibijtdxtN> 
*  REF ,  FREQ )  AVRCE ,  IFIl£ ,  JSECl!i ,  JCR ,  f  REC 


c 

c 


Terminate  subroutine}'  writs  accounting  variables  back 
into  control  array . 


20 


IF  <  CNTRL(37)  .EQ.  1  >  G 
CALL  TIME  ( IMON, IDAY , IYEAR , 
WRITE  (LO.  608)  ’lHOu6,XMZN 


GO  TO  20 
XHQUR ,XHXN> 


4  1b  4  bV  i 

ennti  si  :  i3 


CNTRLt  50) 


SnTRL<Ii7) 


RETURN 


I  PAGE 
I  DOC 


frror  returns  f"o«  EXEC  calls}  output  error  nessage  to 
ine  printer  and  look  what's  m  the  A  and  8  register. 


the 


2i  uitfi  (  6,  *il>  N^+i.fdHNC 
WRITE  (  b,  902)  IA,IB 
GO  TO  20 


END 


FTN4  COMPILER)  HP92060-16Q92  REV.  1926  (790430) 


*8  NO  WARNINGS  **  NO  ERRORS  **  PROGRAM  •  01829 


COMMON  »  00100 


PACE  0030  FTN .  3: 47  PH  MON.,  2S  AUG.,  1980 


SUBROUTINE  PACER  <XREC> 


Subroutine  to  acquire  data  using  the  HP  5610A  A/D  converter, 
If  the  A/D  converter  is  triggered  through  the  pacer  (paced 
run  node) . 

Author :  Hans  Zebner  ^ 

Date:  August  25,  1980 

A  detailed  progran  description  is  available  in  the  TXCO  leg. 
Comment  statenents  and  statenent  nunbers  in  the  source  code 
natch  to  the  progran  description.  This  sobroutine  is  part  of 
the  TXCO  transonic  compressor  investigation  progran  system. 


'  takes'  data ‘  ¥r on* XUllitE’ probes;  ’  A/6' pace i  run ' node  . 

COMMON  /  CIBUF  /  IBUF 
COMMON  /  CONTR  /  CNTRL 

COMMON  /  FMP  /  IDCB , XFILE , XS1ZE , ISECU , ICR 

INTEGER  XBUF ( 1664) 

INTEGER  CNTRL (2SA> 

INTEGER  XDCB( 144) ,XFXLE<3) ,X8XZE(2> 

INTEGER  NOLF , NOCR ( 2 ) , XCLR ( 3 ) , IBUF 1(384) ,X0X1M<9) , IAVRGE(2) 

EQUIVALENCE  < IBUF ( 1 ) , XBUF1 (!)),( XAVRCE ( 1 ) , A URGE) 

DATA  NOLF  /006537B/ 

DATA  NOCR  /0 000338, 04 0433B/ 

m  Ms  i«15B,006S37B/ 

l-ORMATS  P  ACER  START 

101  FORMAT  ( ““llX"acguirinq  additional  data  required  for  redueTio* 
f procedure *10X* *A2) 

1 02  FOR  MAT  < • A"?B . 6, F9?6 ) 

103  FORMAT  (“B"FB,6  F9.6) 

104  FORMAT  (18H  Wall  XULITE) 

105  FORMAT  («“/""79X"V“  The  nest  signal  to  be  digitized 
*  in  paced  run  node  is  on  A/D  input  ehannel*13".  “/ 

*"  Plug  in  a  lead  fron  the  amplifier  output  to  the  oscilloscope 
*.  if  you  desire  ■/ 

*•  to  monitor  the  data  acquisition.  Con't  forget  the  c 
Comparator  output  signal!  */““79X“"/ 

*"  Press  CR  to  continue  the  progran  exeev t ton ! “3SX* 

*"/""79X" "/) 

lOb^FOgMAT  ( *“21X“displaying  wave  form  on  terninal  LU9"I2,20X" 

107  FORMAT  (""/""79X""/"  CHECK  digitized  output  on  a 
tusiliary  console  against  amplifier  output  fed  into  ■/ 

»"  A/D  input  channel  “12"  .  Press  CR  if  data  a 

*re  OK.  If  an  error  is  suspected  “/ 

*"  type  RE  to  repeat  this  data  acquisition! "38X""/ 

*""79X*"/> 

108  FORMAT  ( “"26X*stor ing  data  in  file  "3A2,26X""A2> 

109  FORMAT  (“WARNING:  File  “3A2*  already  exists!  Type  ", 

*"PU  to  allow  purge  or  enter  any  char-", 

UoVWHAT  <•  .«£i!ri“iiu»tE'S3S2V,S2!;1S25'‘'”''M’'> 

111  FORMAT  (Ai"3“) 

112  FORMAT  (“  PACER  :  File  none  “3A2"  succesfully  changed  to  "3A2> 

113  FORMAT  (I5.A2) 

11?  E8855r  Hilt2” 

601  FORMAT  (1H  ,15(1H  ) ,33HTranssonic  Compressor  Test  Run  9  ,17) 


601  FORMAT  (1H  ,15(1H  ) ,33HTranssonic  Compressor  Tes 

602  FORMAT  (1H  ,$9<1H  >;6HDate»  , A2, 1H/ . A2, 1H/. A2> 


/////) 


*/////) - 

605  FORMAT  (/1X""72X""/1X""72X" “/ 

*  IX"  A/D  input  pacer 

*cre-  stop  •  repe-"/ 

*  IX"  9  sample  channel  mode 

tment  count  titionsViX*“72X""/ 

»  iX"Combination  probe i “54X"*/ 


blade 


count 
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1140  C 


FORMATS  PACER  STOP 


1202 

1203 


C 

c 


c 

c 


Accounting . 


SPAgC  -  CNTRL(|iS) 


0  •  »  0  •  I 


01 


TOO 

IML 

XSECU 

ICR  - 

mm\ : 

IFILE<2>  « 

ITYPE 

IggST 

if  : 


CNTRL(219> 

mm™ 

CHTRL(31> 

CNTRLT  30 ) 

3 

128 

XC0N(CNTRL(4) , 0> 

|HT3 

384 


NRPT1 
IW 


CHTRU230) 
CNTRLT 250) 


Print  heading,  unless  CNTRL(37>  is  set  to  1 


04 


i# 1 J  ’  . 

, ( 55??'  iRKtHP" ' 1H0UR ' IHIM> 

t m  (h8',  tn\  mm*™ 

»xIlc4Wtcll?> . 


IP  ACE 
■  EQ. 


1  )  WRITE  (LO,  60S) 


PACE  0022  PACER  2j47PM  MON. ,  25  AUC. ,  1980 


C 

g 


os 


Start  data  acquieition  loop. 


. 

WRITE  (LI,  101)  NOLF 
ICHNL  ■  CNTRL(230*J1> 

lloL  1  »  co  T0  #A 

IDOCF  =»  IDOCF+i 
IF  (  IDOCF  ,LT. 

•  idoB?-ioo 

IFILE< 1 )  *  IFRST 
IF1LE(3)  -  ICON < IDOCF, 0> 


100  )  GO  TO  05 


C 

C 

C 

c 

c 


06 


Acquire  additional  data  required  for  reduction  procedure. 


f4|6  -  scAnr<l$i , it,£) 

FREQ  «  FREQ* 10 . 0 ' 

CIM  -  SCANR ( LSI ,30,1) 
CYAW  -  SCANR  < LSI , 31 ' 1 ) 
PREF  »  SCANR (LSI ,3/ J 1 ) 

PI  ■  ACQN( ISV4,  3, IW) 

pl3  :  gNUM*  *>«» 

E  -  SCANR <LS2,lf>i> 
DE  -  SCANR (LS2| 19,1) 


?64 


8 

C 

c 

C 


07 


08 


Get  correct 

prob£  poaitione. 

i£  (  ICHNL  .EQ 

is  *Ea 

1.  0  >  GO  t6  07 

1  )  CO  TO  08 

Type  'A'  KULITE  probe  (on  A/D  input  channel  0>. 

XIN 

Ball 

?2i5E  <jOXXM»l02) 

i^o'!!0  ’  ‘  1 


Type  'B>  KUL1TE  probe  (on  A/D  input  channel  1). 


xiM*  "i’SdANik<Lii)i4;i)” ' 

1% L  cooiCAHt<L3i'35>i> 

?Add  XIM, YAM 

awir  • 2 


129 


PACE  0024  PACER  2:47  PH  HON.,  25  AUC. ,  1980 
IBUFK294)  -  IAVRGE(2> 

^  £ALL  TINE  (IBUFK352)  ,IBUF1(360)  ,IBUF1(368)  ,IBUF1(376)  ,IBUF  1(384 


61  C 


1366  C 
C 


1378  C 


1398  C 


1402  C 

1403  C 

i 

1406  C 


Display  the  just  acquired  wave  on  terminal  CRT,  if 
CNTRL(40>  is  set  to  1.  The  character  used  for  the  "plot* 
is  defined  by  CNTRL(249>. 


WRITE  U.i,  148)  i£lr 

WRITE  (Li!  149)  ICUR 

IF  (  CNTRLMO)  . NE .  1  )  GO  TO  11 

WRITE  (LI,  106)  LA,NOLF 

m :  \ 

CALL  PICTR  (LA, IDOC, Jill , J222,CNTRL(249) ,DUH) 


Select  the  next  step:  .  _  ■ 

RE  .  ,  ,  Repeat  this  point 

anything  else  Proceed  to  the  next  point 


WRltE  (LI,  107*  iCHNL 

READ  (LI,  149)  IDUH 

WRITE  (LI,  149)  (ICLR,I»1,B,1> 

IF  (  IDUH  . EQ.  2NPP  >  StOJ*  0402 
IF  (  1DUM  .EQ.  2HRE  )  CO  TO  06 


Sp(  xs 

IF  (  CN 


.LT.  5  >  GO  TO  12 


CNTRL(37)  .NE.  1  )  WRITE  (LO,  609) 
«  ISP+1 


Save  data  in  file.  There  are  two  optiens.  The  raw  data  file 
is  either  created/opened  and  closed  by  subroutine  PACER 
(CNTRL(39)  is  set  to  anything  but  to  1)  or  this  subroutine 
is  called  fro*  subroutine  ABSRV,  which  already  has  created/ 
opened  and  positioned  the  raw  data  file  and  will  close  it 
<CNTRL(39)  is  set  to  1).  In  both  cases  the  raw  data  are 
written  in  file  by  this  subroutine  PACER. 


Mitr  (Li:,i66rt«£i;Ndtt 

JSECU  ■  ICON(ISECU.O) 

ICR  ■  TCON( ICR . 0 ) 

feiili?!  :  M&ii 

|BUFi<259)  ■  IFILE(3) 

IBUF1 (261 )  *  JSECU 

if^C^RuSpf^.EQ.  1  )  l 
CALL  CREAT  ( IDCB , IERR , IFILI 


IF  (  GNTRL(39)  .EQ.  1  )  GO  TO  16 

CALL  CREAT  (IDCB , IERR . IFILE , ISIZE , ITYPE, ISECU , ICR , IDCBS) 
IF  (  IERR  .GT.  0  >  fto  TO  i5 

SI*iE  (hi;  ti%\ 

WRITE  (LlJ  149)  (ICLR,I-1.3.1) 

IF  (  IDUH  .EQ.  2H*»  >  Stoi*  0403 

fcivfh,  i!ij  imMW* 

m  fflS4  !  l?”  •  aE5" jfoiLS4«IECU  ’ IC"  ’ 


60  TO  13 
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1481 


14 


15 


16 

17 


18 


l  cone 

(NEW, 111)  IDUH 

ifile»meu»ifile<2>»ifile<3> 

[i?CB ' HMEP-Wr™*  ISECU*tCR ' IDCB8> 

GO  TO  17 

IP  <  ICHNL  .EQ.  8  )  IREC  -  IREC 
IF  (  ICHNL  .EQ.  1  )  IREC  *  IREC+3 
IBUF1 < 289)  •  IREC 

HIV  <»CB>tf««.JBUP|tar,jRSC> 
hid  Si!S8fe<?fic•;fl*«.l,,  go  to  19 

IF  <  1ERR  ,LT.  0  )  STOP  0407 

«Ftt 

WRITE  (LI, 


<  . LI .  0  I  3TOF 

-  ICONdSECU,  0> 

t:  mm* 


c 

c 

c 

c 

c 
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Stop  data  acquisition  loop. 


WRITE  <LO,  610)  (IRUFKJ2)  .J2-265, 272.1  >,CIH 
«  , I0XIH , PREFR , FREQ , AVRCE , IF  t LE , JSE(5u , j£r , IREC 


,CYAW,P1,P23,P4,E,0E 


Torninato  oubroutina}  writ*  accounting  data  back 
into  control  array. 


. 

CALL  TIHE  ( IHON , IDAY .IYEAR , I HOUR , IHIN ) 
WRITE  <LO,  611)  IHOUR, IHIN 
20  CNTRL<  37)  -  -4 
CNTRL<  38)  •  1 
CNTRL(  39)  ■  -4 
CNTRL (  50)  -  -4 

Wi m :  \w 

RETURN 


END 


FTN4  CQHPILER  t  HP92060-16092  REV.  1926  (790430) 

**  NO  WARNXNG8  <*  NO  ERRORS  M  PROGRAM  -  02561 


COHHQN  •  00000 


5.  PROGRAM  TXC02 


5.1.  DESCRIPTION 

TXC02  is  a  son  prograun  of  the  father  program  TXCO0,  by 
which  it  is  scheduled  if  one  of  the  following  operations  is 
desired: 

5  -  Radial  survey  using  the  combination  probe 

6  -  Scan  through  all  steady  state  data 

When  scheduled  by  TXCO0,  which  suspends  operation  while  the 
son  program  TXC02  executes,  the  program  TXC02  reads  the  pro¬ 
gram  control  array  from  the  disc,  sets  the  HP  interface  bus 
and  the  measurement  and  control  devices  to  remote  control  and 
programs  the  digital  voltmeter  (DVM)  ,  the  scanners  and  the 
counter.  CNTRL(50)  is  the  actual  decision  variable  to  select 
and  call  the  subroutine,  which  performs  the  desired  operation. 
When  this  subroutine  has  terminated,  the  interface  bus  and 
the  devices  are  released  from  remote  control  and  the  control 
array  is  written  into  a  disc  file,  so  that  the  next  TXCO  module 
can  read  it.  The  correct  termination  of  each  subroutine  can  be 
verified  by  checking  the  stop  codes.  Note  that  each  stop  code 
ending  in  77  indicates  correct  execution  of  a  subroutine. 

CNTRL (50)  Subroutine  STOP  Code 

5  COMB  TXC02  :  STOP  0577 

6  STDY  TXCO 2  :  STOP  0677 

Any  other  STOP  code  indicates  a  mistake  and  with  the  help  of 

a  program  list  the  operator  can  trace  the  problem.  The  first 

two  digits  of  the  STOP  code  identify  the  subroutine.  An 

example:  if  the  program  stops  at  STOP  code  0604,  the  first 
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two  digits  read  6  and  tells  the  operator  that  it  was  sub¬ 
routine  STDY  which  encountered  problems.  The  last  two  digits 
read  04  (no  error  would  give  77) .  A  program  list  reveals 
that  the  failure  occurred  after  attempting  to  purge  an 
existing  data  file  using  FMP  (File  Management  Package)  sub¬ 
routine  PURGE  near  line  752.  Maybe  the  cartridge,  where 
the  raw  data  are  directed,  has  not  been  mounted  with  the 
MC-command  from  FMGR.  STOP  codes  are  crucial  to  a  complex 
program  system  in  order  to  rapidly  detect  and  salvage  prob¬ 
lems,  even  during  a  test  run. 

EXTERNALS :  REWRF ,  ABERT,  RMOTE ,  COMB,  STDY,  CLEAR,  LOCL 
COMMON  BLOCKS;  FMP,  CIBUF,  CONTR 

FORTRAN  conventions  for  the  HP  21  MX  computer  request  COMMON 
blocks  to  be  predefined  in  a  BLOCK  DATA  subroutine  prior  to 
using  a  COMMON  block  in  a  program,  subroutine  or  function. 


BLOCK  DATA  Subroutine 

Arrays  4  Variables 

Length 

in  Words 

FMP 

IDCB , IFILE , ISIZE , ISECIA, ICR 

227B 

=  15110 

CIBUF 

IBUF 

3200B 

*  1664 

CONTR 

CNTRL 

400B 

*  256 

The  arrays  and  variables  allocated  by  the  COMMON  block  FMP 
are  frequently  used  for  the  data  transfer  from  and  to  the  disc. 
COMMON  block  CIBUF  is  designed  to  take  the  largest  raw  data 
array  in  the  TXCO  data  acquisition  and  reduction  system  - 
IBUF(1664)  in  subroutine  FREER.  The  largest  data  array  in 
TXCO 2  is  PDAT  (24,  21)  with  1008  =  2*21*24  words.  The  TXCO 2 
subroutines  only  partially  use  the  COMMON  area.  The  COMMON 
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block  CONTR  allocates  the  space  for  the  control  array  CNTRL. 
Since  each  individual  subroutine  saves  the  data  prior  to 
terminating,  the  buffer  area  for  the  raw  data  can  be  shared 
by  more  than  one  subroutine  or  function. 

MNEMONIC  ABBREVIATIONS;  None 

ERROR  MESSAGES:  If  CNTRL (50)  is  less  than  5  or  greater  than 
6,  no  subroutine  can  be  selected  and  the  program  terminates 
outputting  an  error  message  (FORMAT  102)  to  the  standard 
input  device;  i.e.  the  terminal. 

PROCEDURE :  For  more  detailed  information  study  the  flow 
chart  and  the  information  given  in  the  subroutine  descrip¬ 
tions  . 


DATA  FILE ;  None 


VARIABLES  IN  BLOCK  DATA  FMP ; 

IDCB  (144)  integer 
IFILE  (3)  integer 
ISIZE  (2)  integer 


ISECU  integer 

ICR  integer 


data  control  block 
array  to  contain  file  name 
array  to  contain  #  of  records 
in  the  first  and  record  length 
in  the  second  16-bit  word 
security  code  of  data  file 
cartridge  reference  number, 
where  data  file  is  located 
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VARIABLES  IN  BLOCK  DATA  CIBUF 


IBUF  (1664) 

integer 

buffer  array  for  the  raw  data 

VARIABLES  IN 

BLOCK 

DATA  CONTR: 

CNTRL 

(256) 

integer 

program  control  array 

VARIABLES  IN 

PROGRAM  TXC02 : 

CNTRL 

(256) 

integer 

program  control  array 

NOLF 

integer 

suppresses  line  feed 

LI 

integer 

LU#  of  standard  input  device 

(terminal) 

ISTOP 

integer 

control  variable  to  select 

STOP  code 

L36 


I 


I 

r 


"1  t'T 


1  ;  !  j  1  i  1 
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i 
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fiekate  interface 
b(lS  <W  etenceS 
from  remote 

control. 

CALL<Uf4fiC%/) 
CAU.  Loci.  f» 


Write  /oroyram 
Cartbol  array 
Mck  into  disc 
rde  cmLF. 

CAU.  RBWJRF 


5.2.  SUBROUTINE  COMB : 


PURPOSE:  Acquisition  of  flow  data  from  the  transonic  1-stage 
axial  compressor  using  a  pneumatic  4-hole  combination  probe. 

The  data  necessary  for  the  reduction  procedure  (PROGRAM  REDCO: 

Reduce  Combination  probe  data)  are  recorded  also.  Up  to  24 

different  radial  positions  can  be  recorded.  Taking  more  than 

one  scan  at  one  and  the  same  radial  nosition  should  be  avoided,  !  j 

!  j 

because  the  reduction  orogram  (originally  written  by  R.  Shreeve  j 

for  the  Laboratory's  HP  9830  calculator  and  rewritten  by 
F.  Neuhoff  for  the  more  advanced  HP  21  MX  computer)  is  not  set 
,  up  for  this  condition. 

\  "  : 
i 

,  ARGUMENTS:  None 

I 

|  EXTERNALS :  TIME,  SCANR,  ACQN,  CREAT,  PURGE,  OPEN,  WRITF,  CLOSE 

COMMON  BLOCKS:  CIBUF,  CONTR,  FMP.  For  detailed  explanation 
refer  to  the  TXC02  description. 

MNEMONIC  ABBREVIATIONS: 

RE 

|  NE 

EN 

UP 

TA 

I 

;  TR 

;  st 

pu 

J- _ 

""  . . .  '  ■'* _ _  _ _ _ _ _ ...  -  A 


. . .  Repeat  data  acquisition  at  this  radial  position. 
. ..  Proceed  to  the  next  radial  position. 

. . .  End  survey  at  this  operating  condition. 

. . .  Update  position  readings  of  probes  prior  to  data 
taking . 

...  Initialisation  command  to  take  data. 

...  Transfer  raw  data  to  HP  9830. 

. . .  Store  raw  data  in  21  MX  disc  file. 

...  Allow  purge  of  an  existing  data  file. 
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ERROR  MESSAGES :  None 


PROCEDURE:  For  more  detailed  information,  study  the  flow 
chart.  After  having  assigned  the  accounting  data,  assigned 
the  I/O  references,  COMB  asks  the  operator  whether  the 
radial  survey  takes  place  ahead  of  the  (IPOS  =  1)  rotor  or 
behind  the  (IPOS  »  2)  rotor.  IPOS  later  will  be  used  to 
identify  the  correct  data  port  (see  Appendix  A.l:  Data  Lo¬ 
cations)  .  The  raw  data  array  IBUF  -  which  is  set  equivalent 
to  real  array  PDAT  (Prob  Data;  used  instead  of  IBUF,  which 
is  an  integer  array)  is  first  preset  with  zeroes.  Before  the 
operator  goes  ahead  and  allows  the  subroutine  to  gather  data 
(Input:  TA;  see  key  to  raw  data  array) ,  he  can  monitor  the 
probe  positions  by  updating  its  reading  (Input:  UP) ,  until 
the  probe  is  manually  set  to  the  desired  position.  Upon 
completion  of  the  data  scan  the  acquired  data  are  printed  and 
the  next  step  depends  on  the  operator's  decision.  If  a  pre¬ 
liminary  check  reveals  erroneous  data,  the  scan  at  this  radial 
position  should  be  repeated  (Input:  RE) .  If  the  data  are 
correct,  the  operator  either  proceeds  to  the  next  radial  posi¬ 
tion  (Input:  NE)  or  terminates  the  radial  combination  probe 
survey  (Input:  EN)  at  this  operating  condition.  The  sub¬ 
routine  then  asks  where  to  dump  the  data.  When  this  routine 
was  developed  the  data  reduction  program  for  the  combination 
probe  was  not  available  in  the  21  MX  system,  hence  the  option 
to  transfer  the  data  to  the  9830  calculator  (Input:  TR)  was 
used.  But  the  data  can  as  well  be  stored  in  a  21  MX  disc  file 


(Input:  ST) .  If  the  raw  data  file  with  the  automatically 
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determined  name  already  exists,  the  operator  either  allows 
overwriting  the  existing  file  (Input:  PU)  or  renames  the 
current  data  file  (Input:  any  alphabetic  character  other  than 
T) .  The  subroutine  terminates  printing  the  data  file  name  at 
the  bottom  of  the  data  documentation  page. 

DATA  FILE:  The  default  file  name  is  T5rrss  (rr  . . .  ASCII 
converted  run  #;  ss  ...  ASCII  converted  sequential  #) . 

VARIABLES : 


IBUF 

(1664) 

integer 

buffer  array 

CHTRL 

(256) 

integer 

control  array 

IDCB 

(144) 

integer 

data  control  block,  used  for 

FMP  calls 

IFILE 

(3) 

integer 

array  to  contain  current  file 

name 

ISIZE 

(2) 

integer 

specifies  #  of  records  and 

record  length 

ISECU 

integer 

security  code  of  data  file 

ICR 

integer 

cartridge  reference  number, 

where  the  raw  data  file  is 

located 

JSECU 

integer 

ASCII  converted  security  code 

JCR 

integer 

ASCII  converted  cartridge 

reference  number 

PDAT(21, 24) 

real 

raw  data  array,  set  equivalent 

to  IBUF 
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POS  (7) 

real 

array  to  contain  probe  positions 

NOLF 

integer 

suppresses  line  feed 

NOCR  (2) 

integer 

suppresses  line  feed  and  carriage 

RETURN 

ICLR  (3) 

integer 

clears  line  above  cursor 

IDCBS 

integer 

length  of  data  control  block 

IENTR 

integer 

multiple  entry  flag 

I  DOC 

integer 

count  of  current  program  run 

IDOCF 

integer 

count  of  current  data  file 

sequential  $ 

ITYPE 

integer 

type  of  raw  data  file 

IL 

integer 

number  of  words  to  be  transferred 

in  FMP  calls 

LI 

integer 

LU#  of  standard  input  device 

(terminal) 

LO 

integer 

LU#  of  standard  output  device 

(line  printer) 

IPOS 

integer 

Flag  to  indicate  measurement 

location 

IMON 

integer 

ASCII  converted  month  of  current 

year 

IYEAR 

integer 

ASCII  converted  last  two  digits 

of  current  year 

IDAY 

integer 

ASCII  converted  day  of  the  month 

IHOUR 

integer 

ASCII  converted  hour  of  the 

day  (24  h  clock) 

IMIN 

integer 

ASCII  converted  minute  of  the 

hour 
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JI 

integer 

Subscript  for  data  array  PDAT 

IS 

integer 

LU#  of  the  selected  scanner 

IC 

integer 

Instrument  code  (DVM  ...  1 

and  digital  counter  ...  3) 

12 

integer 

Subscript  for  position  array  POS 

J3 

integer 

Contains  channel  of  desired 

scanner 

IDUM 

integer 

Decision  variable 

IW 

integer 

Determines  delay  in  tens  of 

milliseconds  between  closing 

S/V  port  and  DVM  reading 

JO 

integer 

Number  of  selected  S/V 

SUM 

real 

Variable  used  to  compute  average 

ISYNCH 

integer 

Synchronisation  variable  to 

coordinate  data  transfer 

21  MX  — >*9830 

NEW 

integer 

Scratch  variable  used  to  rename 

files 

Key  to  data  array  PDAT 


PDAT  (lfJl) 
PDAT  (2,Jl) 
PDAT  (3,J1) 
PDAT  (4,Jl) 
PDAT  (5,J1) 
PDAT  (6,J1) 
PDAT  (7 , Jl) 


Barometric  pressure  DBAR0 
KULZTE  reference  pressure 
Combination  probe  pressure  p^ 
Combination  probe  pressure  033 
Combination  probe  pressure  p^ 

Total  pressure  ahead  of  compressor  pfc 
Static  port  in  casing  #2  ,  S2 
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PDAT  (8,J1)  Static  port  in  casing  #13  ,  S^3 
PDAT  (9,J1)  Average  reading  of  4  static  ports  in  Hub 
(#2  thru  5)  (Hl  +  H2  +  H3  +  H4)/4 
PDAT  (10, Jl)  Pressure  ahead  of  compressor  flow  meter 
orifice  P^  nozzie  Compr 

PDAT  (11, Jl)  Temperature  ahead  of  compressor  flow  meter 
orifice  T^  nozzie  compr 

PDAT  (12,J1)  Pressure  drop  across  compressor  flow  meter 
orifice  Pnozzie  compr 

PDAT  (13, Jl)  Temperature  reading  from  reference  probe 
Tref 

PDAT  (14, Jl)  Differential  temperature  reading  from  the 
combination  probe  to  the  reference  probe 
T 

probe 

PDAT  (15, Jl)  Radial  immersion  of  the  combination  probe 
PDAT  (16,J1)  Yaw  angle  of  the  combination  probe 
PDAT  (17,J1)  Case  angle 
PDAT  (18,J1)  Compressor  RPM 
PDAT  (19,J1)  Test  run  # 

PDAT  (20 , Jl)  Test  #  of  this  run 
PDAT  (21, Jl)  Point  #  of  this  test 

Jl  ■  1  ...  24  indicates  #  of  radial  position. 


I 
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5.3.  SUBROUTINE  STDY: 


PURPOSE :  Acquisition  of  flow  data  from  the  transonic  1-stage 
axial  compressor  using  the  steady  state  instrumentation.  All 
data,  gathered  by  this  subroutine,  will  be  used  for  the  reduc¬ 
tion  (PROGRAM  REDST:  Reduce  Steady  state  data;  see  section 
8.3  of  this  report).  The  data  array  is  designed  to  both 
resemble  the  data  source  location  matrix  (see  Appendix  A.l) 
and  to  discriminate  groups  of  similar  data  by  blank  lines 
(Appendix  A. 2).  CH3(1)  through  CH3(5),  which  contain  all  the 

pressures  needed  to  calculate  the  flow  rates,  and  CH3(6), 
which  is  left  blank,  separates  this  group  of  data  from  the 
next  one.  The  reason  is  to  allow  the  investigator  a  quick 
check  and  verification  of  crucial  data.  The  "units"  of  the 
readings  depend  on  the  amplifier  settings,  but  usually  each 
channel  is  calibrated  to  allow  the  operator  to  read  voltages 
as  a  quantity  in  engineering  units.  As  far  as  possible, 
amplifier  drift  is  traced  by  the  program  (CHl(l),  CH2(1) 
etc.).  (The  author  is  indebted  to  Laboratory's  manager, 

Mr.  Jim  Hammer,  who,  with  admirable  patience,  instructed 
the  author  in  how  bost  to  handle  data  and  data  systems.) 

ARGUMENTS:  IRUN;  if  IRUN  is  set  to  0  (zero),  taking  pressure 
readings  from  the  Scani valves  (S/V)  is  skipped.  This  option 
was  needed  when  the  subroutine  was  first  written  so  that  fre¬ 
quent  debugging  runs  did  not  put  additional  loads  on  the  S/V's. 
The  standard  entry  is:  IRUN  *  1.  Only  then  will  the  reduction 
program  REDST  perform  correctly. 
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EXTERNALS:  TIME,  ACQN,  SCANR,  CREAT,  PURGE,  OPEN,  WRITE,  CLOSE 


COflMON  BLOCKS:  CIBUF,  CONTR ,  FMP .  For  detailed  explanation 
refer  to  the  TXC02  description 

MNEMONIC  ABBREVIATIONS: 

RP  ...  Repeat  data  acquisition  at  this  operating  condition 
RT  ...  End  data  acquisition  and  return  to  calling  program 
PU  ...  Allow  purge  of  an  existing  data  file 

ERROR  MESSAGES:  None 

PROCEDURE :  For  more  detailed  information,  study  the  flow  chart. 
After  having  assigned  the  accounting  data  and  defined  the  I/O 
references,  STDY  presets  all  elements  of  the  raw  data  array 
with  -0.999999,  which  definitely  never  will  occur  as  a  data 
reading.  Next,  unless  IRUN  equals  0  (zero),  the  pressures 
on  Scani valves  1  and  4  are  read.  The  voltages  from  scanner 
#1  (LU#  «  8)  and  scanner  #2  (LU#  15)  are  read  next,  not  depend¬ 
ing  on  the  value  of  IRUN.  Note,  that  the  allocation  for  the 
voltages  in  the  raw  data  array  provides  blocks  of  similar  data, 
separated  by  blank  lines.  A  set  of  control  parameters  (CNTRL 
(1)  thru  CNTRL  (6) ?  and  CNTRL  (15)  and  the  case  angle  -  which 
needs  to  be  put  in  manually  -  completes  the  steady  state  data. 
Then  the  raw  data  is  printed  to  allow  the  operator  to  look 
at  and  to  verify  the  newly  acquired  data.  The  data  scan  can 
either  be  repeated  (Input:  RP)  or  the  subroutine  terminates 
(Input:  ST)  storing  the  data  in  a  type  1  disc  file.  If  the 
automatically  determined  name  for  the  data  file  already  exists. 


the  operator  either  allows  overwriting  the  existing  file 
(Input:  PU)  or  renames  the  current  data  file  (Input:  any 
alphabetic  character  other  than  T) .  Finally  data  file  name  and 
time  are  printed  at  the  bottom  of  the  data  documentation  page. 

DATA  FILE:  The  default  file  name  is  T4rrss  (rr  . . .  ASCII 

converted  run  #;  ss  _  ASCII  converted  sequential  #) ;  see 

Appendix  A. 2:  Steady  State  Data  Array.  CH4  (1)  through 
CH4  (26)  are  not  used,  because  the  reduction  program  will 
write  its  results  into  these  slots. 

VARIABLES : 


IBUF 

(1664) 

integer 

buffer  array 

CNTRL 

(256) 

integer 

control  array 

IDCB 

(144) 

integer 

data  control  block,  used  for 

FMP  calls 

IFILE 

(3) 

integer 

array  to  contain  current  file 

name 

ISIZE 

(2) 

integer 

specifies  #  of  records  and 

record  length 

ISECU 

integer 

security  code  of  data  file 

ICR 

integer 

cartridge  reference  number,  where 

the  raw  data  file  is  located 

JSECU 

integer 

ASCII  converted  security  code 

JCR 

integer 

ASCII  converted  cartridge  refer¬ 
ence  number 

DATA 

(48,4) 

real 

raw  data  array,  set  equivalent 

to  IBUF 
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NOLF 

integer 

suppresses  line  feed 

NOCR  (2) 

integer 

suppresses  line  feed  and  carriage 

RETURN 

ICLR  (3) 

integer 

clears  line  above  cursor 

IENTR 

integer 

multiple  entry  flag 

I  DOC 

integer 

count  of  current  program  run 

IDOCF 

integer 

count  of  current  data  file  se¬ 
quential  # 

ITYPE 

integer 

type  of  raw  data  file 

IL 

integer 

number  of  words  to  be  transferred 

in  FMP  calls 

IFRST 

integer 

temporary  buffer  variable 

LI 

integer 

LU  #  of  standard  input  device 

(terminal) 

LO 

integer 

LU  #  of  standard  output  device 

(line  printer) 

J1 

integer 

subscript  for  data  array  DATA, 

specifies  channel 

J2 

integer 

subscript  for  data  array  DATA 

I  RUN 

integer 

control  variable 

JO 

integer 

number  of  selected  S/V 

IW 

integer 

determines  delay  in  tens  of 

milliseconds  between  closing 

S/V  port  and  DVM  reading 

TARE1 

real 

drift  of  amplifier  S/V#l  during 

test  run 
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TARE  2 

real 

drift  of  amplifier  S/V  #4 

during  test  run 

IS 

integer 

LU  #  of  the  selected  scanner 

IC 

integer 

instrument  code  (DVM  ...  1 

and  digital  counter  ...  2) 

J3 

integer 

contains  channel  of  scanner 

NO  (2) 

integer 

ASCII  text  to  be  printed,  if 

value  of  DATA  (J2,J1)  * 

-.999899 

IDUM 

integer 

decision  variable 

IMON 

integer 

ASCII  converted  month  of  current 

year 

IDAY 

integer 

ASCII  converted  day  of  the  month 

IYEAR 

integer 

ASCII  converted  last  two  digits 

of  current  year 

IHOUR 

integer 

ASCII  converted  hour  of  the  day 

(24  h  clock) 

IMIN 

integer 

ASCII  converted  minute  of  the 

hour 

NEW 

integer 

scratch  variable  used  to 

rename  files 
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FLa^/  CHARr  StAMourtNE  troy 


AWMf.JA-.SSJW 


Acquire.  doh 
Cflntto*,  knyamatr 
# *,  lor?ut ,  qoea* 

tpro6a  pos/kons  ) 
from  $canntr-&n 
Sphm  (Tcmf)  <W 
aamnan  -  counter 


System  frc-ZJ . 

OrtK*  JttXi/aS  Of 
Similar  c/oja  cut 
Qnotrajed  it  * 

SM  !**/*& 
flaw  chad  tf> 


fame  from  rnaamua 
at  Jo  tups- 
frsfl  the/msdJ. 
ammt  ckomnti  7 
&Wit  (Mad. 


CT  iyg  rornu  otd* 
array  donna/  4 
(9*4)  K,>U>  aUa 
and  aonfto/  vorio> 
hkt  ac  food  pwr 
fhO  Contra!  any 
CATVL  •  non*  Q  fly 
input  cost 
amok  '**A 


MRf43,9t)*3ttf 


Opm  oM*  fitp 

CML  ot£n 


5.4.  PROGRAM  LISTING  TXC02 


PACE  0001  FTN . 


4il2  PH  TUE . ,  23  SEP . ,  1980 


0001  FTN4,L 


ill! 

0004 

000S 

0006 


t®L/CFM?AT A/  I DCB  < 1 44  > , IFILE  <  3  > , IS IZE  <  2 ) , I SECU , ICR 
dOMNON  /  FHP  /  IDCB; IFILE. ISIZE.ISECU’ ICR 
INTEGER  I DCB < 144) , IFILE<3) , ISIZE(2) 

END 


FTN4  COMPILER:  HP92060-16092  REV.  1926  (790430) 
**  NO  WARNINGS  **  NO  ERRORS  ** 

BLOCK  COMMON  FMP  SIZE  -  001S1 
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m  saw 


0410 
•  Oil 


ATA 

,,  ,  vaJUF  /  IFUF<1664> 
dOMNON  7  CIBUF  /  IBUF 
INTEGER  IBUF( 1664) 

END 


FTN4  COMPILER i  HP92060-16092  REV .  1926  (790430) 
**  NO  WARNINGS  *«  NO  ERRORS  ** 

BLOC*'  COMMON  CItUF  SIZE  -  01664 


PrtGE  0003  FTN.  4tl2  PH  TUE.,  23  SEP. 


1980 


i»li  .f-H.BM*/ 


CNTRL  < 256  > 


0014 

001S 

0016 


INT 

END 


/  CONTR  /  CNTRL 
R  CNTRL <2S4> 


FTN4  COHPILER:  HP92060-16092  REV.  1926  (790430) 
*8  NO  WARNINGS  **  NO  ERRORS  ** 

BLOCK  COMHON  CONTR  SIZE  -  00256 


PACE  0004  FTN,.  4 1 12  PH  TUE .  ,  23  SEP.,  1980 


PROGRAM  TXC02  (3,99) 


•  020  C 

C 

8 

•024  C 


C 

•028  C 


C 

c 
c 

••35  C 


The  operating  system  RTE  IV  B  requests  the  data  acquisition 
program  TXCO  for  the  one  stage  transsonic  compressor  to  be 
split  into  several  proqram*  scheduled  by. the  father  program 
TXCO.  This  son  proqram  TXC02  consists  of  the  subroutines 
COMB  and  STDY.  These  codes  handle  the  acquisition  of  the 
steady  state  data  and  a  survey  conducted  with  the  combination 
probe.  The  data  transfer  between  father  and  son  program 
takes  place  via  the  control  array  CNTRL  (disc  file  CmTRLF) 
and  the  data  array  IBUF  (disc  file  IBUFF). 

JSSrk  T  *  ieSfiFT“BP  SSI  i  nS!A8g?Nt  iS@TkA«caSTf  •  aJES°SadI5” T  > 


Author: 
Date  i 


Hans  M.  Zebner 
March  12,  1980 


A  detailed  proqram  description  is  available  in  the  TXCO  log. 


Second ' son ' program’ of ’ father ' program' txc6! ’ 

COMMON  /  CONTR  /  CNTRL 
INTEGER  CNTRL ( 256 > 

DATA  NOLF  /806537/ 

101  FORMAT  (9X«“20X«"A2) 

102  FORMAT  ( •  TXC02  :  PROGRAM  ABORTED)  NO  SUBROUTINE  HAS  BE 
801 

\ll\  f8rMAT  WWW™'' 

1501  FORMAT  ( “CA“ ) 


CALL  REURF  (-1,2) 

LI  -  CNTRL (19) 

IF  (  CNTRL (50 )  .LT. 


CNTRL (50 )  .CT.  &  )  GO  TO  03 


•  059  C 


Sat  interface  bis  and  devices  to  remote  control. 


&ALL‘ABRt‘ (?;2)' 

rmotI  \A\ 

CALL  RMOTE  (12) 
CALL  RMOTE  (IS) 

ml  WWW 

SSHI  Hi:iioi> 


Call  subroutine  indicated  by  CNTRL(SO). 


ISTOP  -  CNTRL (50) 

IF  (  CNTRL (50)  .EG.  5  >  CALL  COMB 

IF  (  CNTRL(SO)  .EG.  6  )  CALL  STDY ( CNTRL ( 51 ) ) 


Release  interface  bus  and  devices  from  remote  control. 


call'&lear' (*;i> 
CALL  LOCL  (7) 

CALL  REURF  (1,2) 


PACE  0005  TXCQ2  4:12  PH  TUE . ,  23  SEP.,  1980 


OOvl 

9094 

0095 

6096 

0097 


WRITE  (LI,  1Q1>  NQLF 
CO  TO  <01,02)  ISTOP 
01  STOP  0577 
02  STOP  0677 
03  WRITE  (LI,  102) 

END 


PTN4  COMPILER:  HP92060-16092  REV.  1926  (790430) 


t*  NO  WARNINGS  **  NO  ERRORS  **  PROGRAM  *  00221 


COMMON  ■  00000 


PAGE  0006  FTN . 


4il2  PM  TUE.,  23  SEP.,  1980 


SUBROUTINE  COMB 


C  Acquire*  data  fro*  the  transsonic  1-staqe  axial  compressor. 

C  Gathers  data  required  for  a  probe  survey  with  the 

8  combination  probe.  The  raw  data  then  are  transferred  to 

the  HP  9830  calculator  for  reduction. 

C 


*.  Takes  data  from  the  combination  probe. 

COMMON  /  CIBUF  /  IBUF 
COMMON  /  CONTR  /  CNTRL 

COMMON  /  FMP  /  I DCB . IFILE , I SIZE , 1SECU , ICR 
REAL  PDAT<21,24> ,P0S<7> 

INTEGER  CNTRl.(25o) , XDCBC144) ,IFILE(3> ,1S1ZE(2> 


INTEGER  IBUF <1664) 

INTEGER  NOLF ,N0CR (2) , ICLR(3) 

EQUIVALENCE  ( IBUF< i ) ' PDAT< 1 , 1 > ) 

DATA  NOLF  /006S37B/ 

DATA  NOCR  /00 0033B, 040433B/ 

DATA  ICLR  /0 1SS24B , Q1551SB , 0  Q6S37B/ 

DATA  IDCBS  /144/ 

FORMATS  COMB  START 

100  FORMAT  <A1*S*> 

101  FORMAT  <  "WARNING i  file  "3A2*  already  exists!  Type  PU  to  " 
*“allow  purga  or  enter  any  char-*, 

*/,"  acter  but  T  to  change  file  name . "3BX> 

102  FORMAT  ("File  name  chang*  succesful!  *3A2"  changed  to  *3A2> 

103  FORMAT  <" “29X “gather ing  probe  data ! “29X" *A2) 

111  f8rm{$  (<^2f6X“*torin9  ««»«  An  fil*  *3A2,26X““A2) 

210  FORMAT  <*  Make  sura,  that  the  9830  racaiver  program  runs!  Ty 
*D*  YES  to  continue t “2A2> 

211  FORMAT  <*  “27X"Transf err ing  data  to  9830*27X*“2A2> 

212  FORMAT  <“  “79X/2A2*  Data  transfer  completed.  Print  transferr 
ted  data?  Enter  LU*  or  NO!  *2A2> 

313  FORMAT  (■  Repeat  data  transfer?  Enter  YES  or  NO! 

*  *2A2) 

21S  FORMAT  (•  Waiting  for  9830  storage  procedure.  Type  C 
tR  to  continue!  *2A2) 

316  FORMAT  <*  Check  synchronisation  of  master  and  slave  program! 

*  Type  CR  to  continue!  "2A2> 

116  FORMAT  (*  *16X*Probe  survey  at  this  constellation  complet*d“17 


tX* “A2// 

t"Typ*  TR  to  transfer  the  data  to  HP  9830  calculator*/ 

51  ST  t0  *aw«  ?M*  in  HP  21MX  disc  file  “3A2*t“A2 

t" i "A2/ 

t"  *2A2) 

117  FORMAT  < *  *2SX*Check  raw  data  of  this  scan ! *26X""A2// 
•"Type  RE  to  repeat  this  point*/ 

*"  NE  to  proceed  to  tn*  next  point"/ 

•"  EN  to  terminate  the  survey  at  this  constellation*/ 

**  "2A2> 


**  Combination  probe  *F10.3,10X,F10.3""/ 

*"  Type  *A»  probe  "F10 .3 , 10X,F10 . 3"*/ 

*1  Type  *B*  probe  •FiO.sliOX'FlO .3""// 

»"  Case  angle  "20X4,T10 , 3"*// 

•“Type  UP  to  update  those  readings"/ 

*J|  TA*2A2)takt  a  daTtt  ,€T  ot  c®h*tellation*/ 

119  FORMAT  <*  Enter  case  angle *34X,2A2) 

120  FORMAT  <"  Is  this  combination  probe  survey  done  before  <*, 

6*1)  or  after  <2)  the  rotor?  *2A2) 

121  FORMAT  <*  PDAT<"12" , “I2*>  -ACQN< *12*, "12", *I3">  has  been  * 
texected;  result  is  *F10.6""A2) 

122  FORMAT  ("  PDAT<"T3*  "12")  »  8CANR < "12" , "12" , "II" )  ha*  been  ex* 

149  FORMAT  <(3A2)) 

189  FORMAT  <<21F6.4>) 


1AT  <1H 


'////, 36X 
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PACE  0007  COMB  4tl2  PM  TUE . ,  23  SEP.,  1980 


0173 

0174 

017S 

0176 

0177 

0179 
It  180 
0181 


*/////) 

60S  FORMAT  (1H  ,4§(1H  > ,33HTranssonic  Conoressor  T«*t  Run  *  , 

603  FORMAT  (1H  58<1H  )!6HDaT*!  , AS , 1H/, A2, 1H/ ,A2>  ' 

604  FORMAT  C 1H  ,"",S8<1H  ),6HTi««!  , AS, iH . , A2 , 3H  h, /////) 

605  FORMAT  < 1H0 . “Const* 1 lat i on  *"I3‘U//1H  '9Fi0.6/ 

*1H  ,  60X ,  3F1 0 . 6  n  H  77?*  S71H  .SQX.SFIO .6, F10. 1,4110/) 

606  FORMAT  (iH0,“Data  transferred  to  HP  9830  file  "IPX* .  **) 

607  FORMAT  <lH0,“Da?a  sawed  in  file  “3A2“  t  “A2“  t  “AS1*?*?- 
610  FORMAT  (“ 


",58(1H  ),6HTina:  ,A2,1H. ,A2,3H  h ) 


17) 
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FORMAT  ( 113) 

FORMAT  <F13 .6) 

FORMAT  (“  A  REGISTER  IS  'K6“ 
FORMAT  <  “F1R7M3A1H0T3“) 

FORMAT  ( “PF4G6T" ) 

FORMA T 3  COMB  STOP 
IF  <  IENTR  .NE.  0  >  GO  TO  7211 
IENTR  ■  1 

iE8Sf  -  8 

ISECU  -  CNTRL(31) 


B  REGISTER  IS  “K6/> 


ICR 

ir 6 


CNTRL ( 30  > 
1 024 


ISIZE(i)  -  8 
ISIZE<2>  *  128 

hioc 

WRITE  (LI ,  120)  NOCR 

READ  (LI,  *>  IPOS 

WRITE  (LI,  149)  ICLR 

IF  (  IPOS  .LT.  1  .OR.  IPOS  .GT. 

IDOCF  *  IDOCF+i 

DO  7212  1*1, 1024,1 

IBUF( I  )*0 

WRITE  (10,1001) 

WRITE  (12  1201) 

LO  -  CNTRL ( 20 ) 

mim.  uMPtmtw** • IH0UR  * IMIN> 

WRITE  ( LO ,603 )  IMON , IDAY, IYEAR 
WRITE  ( LO, 604 )  IHQuA , IMIN 
WRITE  (LOJ601) 

Jl  *  0 
Ji  -  Jl+1 

a  •  r*- 


2  )  GO  TO  7213 


:H:  HB: 

SCANR ( IS , J3 , 1C ) 

.EQ.  2  >  J3  * 
.EQ.  I  >  J3  - 
bCANRdS, J3,IC) 


IF  (  IPOS  .EQ.  2  )  J3  «  30 

IF  <  IPOS  .EQ .  1  )  J3  -  38 

lS8-X?2->i  3CflNR<IS»J3>IC) 
if  <  ipos  .eq.  2  )  J3  *  31 

IF  (  IPOS  .EQ.  1  )  J3  -  39 

Pg8(I|^-  bCANRdS, J3,IC) 

DO  21  J3-32.3S.1 

POS(  12)  -  stAN^dS, J3,IC> 

iS  22I?2il,S,2 

POS( 12)  *  POS(I2>*1000 . 

DO  23  12*2,6.2 
P0S(I2)  -  POS(I2)*1OOO0. 

WRITE  (LI,  119)  NOCR 

READ  (LI,  *>  PQS(7> 

WRITE  (LI,  149)  ICLR 

m*  w:  iSBm4  12 j  » i2“ 1 » 7 ’  * nocr 

WRITE  (LI,  149)  (ICLR, 1*1 .11) 

IF  (  IDUM  .EQ.  2HTA  >  GO  TO  4711 
IF  i  I£UM  -ECi.  2HUP  )  GO  TO  2S- 
GO  TO  24 
IW  -  CNTRL (2S0) 

WRITE  (LI,  103)  NOLF 
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COMB  4 i 12  PM  TUE.,  23  SEP.,  1980 


‘Gather  data  recorded  via  S/V*l  (JO-1). 


1292 

r  *18 


JO  -  l 
J3  »  7 
J2  «  6 

PDAT(J2,J1>  »  ACQN( JO , J3,IW) 

WRITE  (LI,  121)  J2,J1,J0,J3,IU,PDAT(J2,J1> ,NOLF 
J3  *  9 
J2  *  7 

PDAT(J2,J1>  ■  ACQN( JO , J3 , IU) 

WRITE  (LI,  121)  J2, J1 , JO , J3, IU,PDAT( J2, Jl) ,NOLF 
J3  -  20 
J2  -  8 

PDAT(J2, Jl)  -  ACQN( JO , J3 , IU) 

WRITE  (LI,  121)  J2, J1,J0,J3,IW,PDAT( J2,J1) ,NOLF 
SUM  -  0. 

DO  1  13-30,33 
J2  -  9 

PDAT  (J2.J1)  -  ACQN( J0.J3.IU) 

§8STS  SU*ipi«)<J2?Jl)’i°'J3’I“'|,'>,‘TI,2"'1>,M0,-F 

PDAT(J2, Jl)  -  SUM/4. 


Gather  data  recorded  via  S/V*4  (JO-4), 


9\m  :I8:  !  M3  M 

J2  -  3 

PDAT( J2, Jl )  -  ACQN( JO , J3, IU) 

‘li!  ^>jl^^»I«>P^(J2,Jl),NOLF 

IF  (  IPOS  . EG.  1  )  J3  -  8 

J2  -  4 

PDAT ( J2 , Jl >  -  ACQN( JO ,  J3,IU) 

WRITE  (dl,  121)  J2,Jl'jO  J3,IU,PDAT(J2,J1) ,MOLF 
IF  (  IPOS  .EB,  2  )  his 
IF  ^  IPOS  .EQ.  1  >  J3  *  9 

PDAT(J2,Ji)  »  ACQN( JO, J3,  1) 

WRITE  (LI,  121)  J2, Jl , JO , J3, IW,PDAT( J2, Jl ) ,NOLF 


Gather  data  recorded  via  scanner*!  (IS-8). 


IS  -  8 
IC  -  2 
J3  -  17 
J2  •  18 

tmk3w\ 

IC  -  l 
J3  -  25 
J2  -  1 
PDAT ( J2 , Jl 
WRITE  (LI, 
J3  -  26 
J2  -  10 
PDAT(J2, Jl 

^§AT($I, Jl 
WRITE  (LI, 
IF  (  IPOS 

y3  l  rsos 

PDAT( J2, Jl 
WRITE  (LI, 
IF  (  IPOS 
IF  (  IPOS 


\zZrwMs,tp,mc  ,PDAT(J2,J1) , NOLF 


)  -  SCANR (IS.J3.IC) 

122)  J2,J1,IS,j3, IC,PDAT ( J2, Jl ) ,NOLF 

>  -  SCANR ( IS. J3.IC) 

122)  J2 , Jl , IS, j3, IC ,PDAT( J2 , Jl > , NOLF 

)  *  SCANR ( IS. J3.IC) 

1|2)  J|,  J1^xS^j3jIC,PDAT(J2, Jl) ,NOLF 

!eq!  1  )  J3  ■  38 

)  -  SCANR ( IS.  J3.IC) 

1|2)  Jg,  JljlS^Jj.IC.PDATUS.Jl)  ,NOLF 

!EW.'  1  )  J3  •  39 


PACE  0009  COMB  4il2  PM  TUE . ,  23  SEP.,  19S0 


J2.  -  16 

PDAT  ( J2, Jl  )  -  SCANRdS,  J3.IC) 

WRITE  (£.1,  122)  J2,Ji,iS,i3,IC,PDAT(J2,Jl),NOLF 
J3  ■  37 

Sl?y?df:>122fC^^fii?i^C,PDATCJ2,Jl>,KOLP 


Gather  data  recorded  via  scanner02  (IS*1S). 


IS  -  15 

i{jM-<«H . 

DO  2  J3»4,5 

PDAT  ( J2  ,  J  i  )  -  SCANRdS,  J3.IC) 

WRITE  (dl^  1 2^ )  ^J2^ J 1 ,  i S , i3 ,  IC , PDAT <  J2 ,  Jl  >  , NOLF 

PDAT(J2,J1)  -  SUM>2. 

J3  -  18 
J2  -  13 

PDAT(J2,J1>  »  SCANRdS,  J3.IC) 

WRITE  (LI,  122)  J2,Jl,iS,J3,IC,PDAT(J2,Ji),N0LF 
J3  *  19 
J2  -  14 

PDAT(J2,J1)  •  SCANR ( IS , J3 , 1C) 

WRITE  (LI,  122)  J2,J1,IS, j3,IC,PDAT(J2,J1) , NOLF 


Gather  the  rest  of  the  required  data. 


PDAT ( 1 9 , Jl )  -  CNTRL( 4) 

PDAT(20,J1)  -  CNTRL(5) 

PDAT (21 , Jl )  -  CNTRL(6) 

PDAT(17,Jl)  -  P0S(7) 

881H  <<&;  f!5i 

READ  (LI,  149)  IDUM 
WRITE  (LI ,  149)  (ICLR, 1-1,6) 

if  i  MS  it  SSI  5  ii  t8  ft11  .. 

IF  (  IDUM  .EG.  2HEN  )  GO  TO  51 


Yf  <  iEum  :19:  38K  \  *4  T8  SI1.1  . 

IF  (  IDUM  .EQ.  2HEN  )  GO  TO  51 

GO  TO  50 

IFILE(i)  *  2HTS 

IFIL£(2>  ■  ICON( CNTRL( 4) , 0 ) 

IFILE<3)  ■  ICON(IDQCF,0 ) 

JSECU  -  ICONdSECU.O) 

TOR  v  T TPR  0  $ 

WRITE  (LI,  116)  AoLF , IFILE , JSECU, JCR , NOCR 

READ  (LI,  149)  IDUM 

WRITE  (LI,  149)  ( ICLR , 1*1,5) 

IF  (  IDUM*  .EQ.  2HTR  )  g6  TO  52 

IF  (  IDUM  .EQ.  2H8T  )  GO  TO  53 

GO  TO  51 
ISYNCH  -  9830 


Data  transfer  to  HP  9630  for  reduction.  No  storage  on  21NX! 


URltE  ( LI ,  2l6i  N66A 
READ  (LI,  149)  IDUM 
WRITE  (LI,  149)  ICLR 
IF  (  IDUM  . NE ,  2HYE 
WRITE  (  7,  701)  ISYNC 
WRITE  (LI,  216)  NOCR 
READ  (LI,  *>  IDUM 

HHi  \l\>  till  m 

?!  ft# 

MR  III!  WM 


>  GO  TO  71 


IS1?  i-i,2i), 


J«l,24> 


PAGE 

0010 

COMB 

4:12  PM 

TUE. 

0398 

WR-ITE 

(LI,  149) 

ICLR 

0399 

WRITE 

(LI,  215) 

NOCR 

READ 

(LI,  *) 

IDUM 

WRITE 

(LI,  149) 

ICLR 

rrrFl 

WRITE 

(LO,  606) 

0403 

0404 

c 

GO  TO 

66 

0405 

C 

0406 

c 

Saw*  data  on 

21MX 

0407 

c 

1408 

c 

9  53  CONTINUE 

0  418  WRITE  (LI >105)  ( IFILE ( J2) , J2»l , 3 > ,NOLF 

\\  I^B.JERR^F^JgiZEllTYPE.ISECU^ICR.IDCBS) 

13  WRITE  <I_1 , 101  >  (IFIL£lJ2),J2-i,3> 

114  READ  (LI, 107 )  IDUM 

IS  WRITE  <LI ,149)  ICLR 

IS  IF  (  IDUM  , NE .  2HPU  )  GO  TO  419 

H7  CALL  PURGE  ( IDCB, IERR .IFILE, ISECU, ICR > 

18  IF  <  IERR  , LT.  0  >  STOP  IS 

119  GO  TO  418 

20  419  CALL  CODE 

21  WRITE  (NEW. 100)  IDUM 

22  WRITE  (LI, 102)  ( IFILE< J2> ,J2«1,3) ,NEU,(IFILE<J2> ,J2»2,3> 

f3  IFILE ( 1 )  *  NEW 

4  GO  TO  418 

2S  420  CALL  OPEN  ( IDCB , IERR .IF ILE , IOPTN , ISECU , ICR , IDCBS ) 

>26  IF  (  IERR  .LT.  0  )  STOP  l£ 

ft  ^flV  mV 

29  CALL  CLOSE  ( IDCB , IERR . 0 ) 

30  IF  (  IERR  .LT.  0  )  STOP  20 

3£  WfiHi  (tft',i60^)15t?LE,JSECU, JCR 

13  “  SS)VEMt!§.i«?Nti885ite!a,-iHOU“’I"IN> 

b  %rH 
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C 

C 

C 

C 

C 


SUBROUTINE  STDY  (IRUN) 

Acquires  data  from  the  transsonic  1 -stage  axial  compressor. 
This  subroutine  takes  care  of  the  steadv  state. data,  either 
in  a  long  or  a  short  run  <IRUN»1  resp.  0). 

*)  fakes’ data ’ from*  steady' state' system! 

COMMON  /  CIBUF  /  IBUF 
COMMON  /  CONTR  /  CNTRL 

COMMON  /  FMP  /  IDCB , IFILE , ISIZE , ISECU , ICR  _  _ _  „ 

BHfBS  ,H0  s>,ra''  ’ 

INTEGER  CNTRL <256 5 
REAL  DATA <48. 4) 

EQUIVALENCE  ( I BUF  < 1 > , DATA! 1 , 1 >  > 

DATA  NOLF  /006S37B/ 

DATA  NOCR  /000033B,040433B/ 

DATA  ICLR  /015S24B, 0155158,0065378/ 


100 

101 


FORMATS 
FORMAT  <  A1 “ 4“ ) 


>  U4  22430  j  W  VH3W/  O/ 

SIDY  START 


FORMAT 
t"PU  to 

102  f6rmat 

103  FORMAT 

104  FORMAT 


Type 


< “WARNING:  File  "3A2"  already  exists! 
allow  purqe  or  enter  any  chai — 

geter  but  T  to  change  file  nane.*38X) 

<■  STDY  ;  File  name  *3A2“  succesfvlly  changed  to 
<"  STDY  i  PU, "3A2" t  “A2" s  "A2> 

<  12) 

105  FORMAT  <  •  "26X"stor  inq  data  in  file  "3A2,26X""A2> 

106  FORMAT  <*  Enter  case  anqle  :  "Ri"J*2A2> 

< /"Look  at  the  just  acquired  data!  Decide  and  enter"// 

to  repeat  the  data  acquisition"/ 
to  return  to  the  calling  program"// 


3A2) 


110  FORMAT 
»"RP 
»"RT 
*“  «A2) 


112  FORMAT 
*"'9 
S"1 
115  FORMAT 
120  FORMAT 
Sted 


</"Do  you  want*// 
a  short  run"/ 
a  long  run"//" 
<4F16.6J 

<"  DATA< “12", "II") 
result  is  "Fl0.6""A2> 


A2) 

-  ACQNt "I1","I2","I3*> 


ICO 


■) 


121  FORMAT  ”  DATA? "12:; ;1 1 -  SCANR< "12" , "12" ,  "II' 
tetad:  result  is  "F10.6  *A2) 

147  FORMAT  <Il> 

149  FORMAT  <  <  3A2) ) 

601  FORMAT  < 1M  , " " , /// // , 36X  ^  ^ 

* ,  '-i  teodu  *3  -xhx  t<e D.a  .TJa — X  .1.  n.n. 


m 


*// 

602  FORMAT  < 1H 

603  FORMAT  < 1H 

604  FORMAT  < 1H 

605  FORMAT  <  1H 


sp  mm  un 

608  FORMAT  <1H 


lor  Test  Run  •  ,17) 


hub  S’iasKyjvsstfH^srisvjai 

"" ,58< In  ) .6MT ime :  ,A2,iH. ,A2,3H  h, /////) 

46llH  ) .""*115"") 

win 

36<1H  ) , 12 . 8< 1H  ) ,4<A1,7A2) ,17) 

609  FORMAT  <1H  146<1H  >,4115,//) 

610  FORMAT  < 1H  ,36X,  "Long  run  performed.  Aboue  printed  data  are  sav 

ted  in  file  *3A24 1  "A2*  x*lZ,/  r  .. 

tlH  . 36X . "Note  i  "2A2"  ...  no  data  acquired.") 

611  FORMAT  tlFTTS&X,  "Short  run  performed.  Above  printed  data  are  sa 
tved  in  file  "3A2" ! "A2" i *12,/ 

AuVIUftV**14-  ‘  *Z  acquired .  •) 


• ,58< IN  ) ,6HTimei  ,A2,1H. ,A2,3H  h, /////) 
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B  REGISTER  IS  ”K6/> 
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563 


C 

C 

c 

c 

c 

c 


c 

c 

c 

c 


01  ii IWM  :  hs 

WRITE  (10,1001) 

WRITE  <12  1201) 

IFR8T  »  2HT4 

LI  ■  CNTRL< 19) 

LO  »  CNTRL(20) 

CALL  TIHE  ( IMON ,IDAY , IYEAR , IHOUR , IHIN) 
WRITE  <LO,602>  CNTRLI4) 

BSHi  <l8;604>  »Wyear 

WRITE  (L0,60i> 

I DOC  ■  1+IDOC 

os  tmi 


Preset  data  array  DATA(48,4)  with  the  dummy  variable  -.999999 
to  itaka  trouble  shooting  easier. 

bo'di'  . 

DO  06  J2-1 ,48,1 
06  DATA(J2.J1$  -  -0.999999 

IF  (  IRliN  ,EQ.  0  )  CO  TO  11 


Acquire  pressure*  fro n  ucanni valve-scanner-DVH  systen.  Only 
performs  in  a  long  run. 


JO  -  l 

J1  -1 

07  32-iN4aLi2S0> 

07  WRIT^J?li?^120)t:?2!f'',jSjl2,>IW,DATA(J2,Jl),MOLF 
JO  -  4 

Jl  -2 

IW  -  CNTRL(2S0) 

08  wflTlJ^f^l20)CJ2,<il',5f  ji2,>IW,DATm(J2,Jl)  ,NOLF 


8 

c 


Subtract  tare  from  pressure  readings. 


■i'bAtA<‘ii'ij 
-  DATA<  1,  2) 


TA*ti 

If?! 

DO  09  J2«1.48,l 

09  DATA(|2,J15  -  DATA< J2, J1>-TARE1 
DO  11  J2-l,45,l 

10  DATA< J2, J1 >  -  DATA< J2, J1 )-TARE2 


*?  8 

»71  C 


C 

c 


Acquire  data  (pressures,  temperatures,  torque,  speed,  probe 
positions)  from  scanner-DVH  or  scanner-counter  systen. 


u  n 


i 


M  12252»1.S,1 

DATA< J2> Jl )  -  SCANR(IS. J3.IC) 


13 


12  121)  J2,J1,x3,J3,  IC,DATA(  J2,  J1 )  ,NOLF 

DO  13  J2-7,12,l 
OATA( J2 . J1 )  »  SCAHR<IS. J3.IC) 

JglTE  (LI,  121)  J2, J1 , iS, J3, IC,DATA( J2, J1 ) ,NOLF 
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1980 


0587 
0588 
0589 
0590 
0591 
059| 
059 
0 
9 


94 

95 


m 

0598 

0599 

m 

0602 

0603 

0604 

0605 

0606 

96®7 

0608 

0609 

9610 

0611 

mi 

0614 

3615 

m$ 

0618 

0619 

III! 

tm 

mi 

0626 

S627 

ill 

0630 

1 

till 

H 

)»§ 

0645 


645 

0646 

647 

0650 

6f 


065 

10 


73*  •  0 
IS  •  IS 

DO  14  72-14,17,1 

DATA (72, 71)  «  SCANR ( IS, 73,10 

WRITE  (LI,  121)  72,71,iS,J3,IC,DATA(72,71) ,NQLF 
14  J3  ■  73+i 
J3  ■  4 

DO  IS  72*19,25. 1 

0ATA(72, 71 )  «  SCANRt IS. 73.10 

^RITE  £dl,  121)  72,71,lS,J3,IC,DATA(72,71) ,  NOLF 


73  -  12 


DO  16  72-27,31,1 

DAT A( 72. 71)  *  SCANR < IS .73 . IC) 

WRITE  (dl,  121)  72, 71, IS, 73, IC, 


DATA(72,71) ,NOLF 


16  73  ■  73+1 

H :  37 

72  -  33 

DATA(72, 71 )  -  SCANR < IS . 73 , IC) 

WRITE  (dl,  121)  72,71,13,73, IC,DATA(72, 71) , NOLF 
IS  —  15 

73  -  40 

DO  17  72-34,45,1 
DATA<72,71)  -  SCANR < IS .73 , IC) 

WRITE  <dl,  121)  72,71,IS,73,IC,DATA(72,71),NOLF 

17  73  -  73+1 
73  -  52 


DO  18  72-47,48,1 

DATA(72,7l)  -  SCANR ( IS .73, IC ) 

WRITE  (lit,  121)  72,7i,tS,i3,IC, 


18  73  -  73+1 
IS  -  8 

— it:i 


DATA(72,71 ) ,NOLF 


il  •  4? 

S«I?4J?df l, )  121) C72* Jl?l if ii?ic , DATAC72 , 71  >  , NOLF 
73-17 

72  -  46 

DATA(72 .71 «  SCANR  ( IS  .73,  IC)  . 

WRITE  (dl,  121)  72,71,18,73, IC,DATA(72,71 ) , NOLF 
IC  -  1 

73  -  36 

DATA(72,71 )  -  SCANR <18. 73,10 

WRITE  (LI,  121)  72,71 ,18,73, XC,DATA(72, 71) ,NOLF 
13  ®  15 

iUi% 

DATA(72, 71 )  -  SCANR < 18.73, IC) 

WRITE  (dl,  121)  72,71, 13,77, IC, DATA (72, 71 > , NOLF 

li  2 

DATA(72,71)  -  SCANR ( IS .73, IC) 

DATA! 34, 71 )  «  CNTRLC  S) 

DATA (35, 71)  «  CNTRL (  6) 

EATA(36,71)  -  CNTRL <  2) 


:ntrl< 


} 

im  ■  wwwm^ 


6ATA(38;7l)  -  CNTRL <  3) 

DATA! 39,71)  -  CNTRL <  IS) 

yp •  '*•*  ...  . 

R 
Wl 


nonoo 

Print  acquired  data. 

t 

l 

NjSUJ  •  4h  n 

NO<2)  -  2H/a 
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PACE  0014  STDY  4il2  PM  TUE. ,  23  SEP.,  i960 
42  WRITE  (LQ.  60S)  (72.72*1.4) 


WRITE  <LO,  AOS)  (72,72*1,4) 

CALL  CODE 

WRITE  < IDATA, IIS)  <DATA< 71 , J2) , 72*1,4) 

DO  20  72*1.4  1 

>  “  T0  *• 

IDATA <  8,J2)  *  N0(2> 

DO  19  73*1,6, 1 

1?  B8T5!fi-ri>  •  "H  - 

WRITE  (LO,  608)  J1 , < ( I DATA ( J3, 72) , 73*1 ,8> , 72*1 ,4) , 71 
DO  26  71*2,47,1 

“>“™« 

WRITE  (IDATA, 115)  < DATA< J1 , J2) , J2*l , 4) 

DO  22  72-1,4  1 

IF  <  DATA( 71,72)  .ME.  -.999999  >  CO  TO  22 
IDATAt  7, J2)  -  NQ< 1 > 

IDATA<  8,72)  -  N0(2) 

DO  21  73*1,6, 1 

21  IDATA(73,72)  -  2H 

22  CONTINUE 

WRITE  (LO,  606)  71, ( (IDATA(73, J2) ,73*1 ,8) , 72*1,4) ,71 
GO  TO  26 

23  58VVec??Sata  ,115)  (DATA(71, 72) ,72*1,4) 

DO  25  72*1, 4jl 

IF  (  DATA( 71 ,72)  .NE.  -.999999  )  CO  TO  25 
|DATA(  7,72)  -  NO(i> 

IDATA (  8,72)  -  NQ(2> 

DO  24  73-1.6,1 

ii  asu4a'rf»  ■ aH 

WRITE  (LO,  607)  ( (IDATAU3, 72)  ,73*1,8)  ,72-1 .4) 

26  CONTINUE 

sKCc??Sata  ,115)  (DATA! 71, 72) ,72*1,4) 

DO  28  72-1.4,1 

IF  (  DATA( 7 1,72)  .NE.  -.999999  )  CO  TO  28 
|BATA(  7,7?)  -  NO(l) 

IDATA<  8,72)  -  NO(2) 

DO  27  73*1.6,1 

li  afipi-ri>  ’  “ 

WRITE  (LQ,  606)  71 .( ( IDATA (73 ,72) ,73*1 ,8) ,72*1,4) ,71 
WRITE  (LO,  609)  (72,72-1,4)  , 

It.  i  IDQCF  .LT:  100  )  CO  TO  32 


Ask  operator  whether  to  repeat  the  data  aegvisition  at  title 
setting  (RP)  or  to  return  to  the  calling  progran  (RT) . 


33  WRITE  (LI, 

WW& b 

IF  <  I DUN 

3.  fctfK. 
READ  (LI, 

m  iH> 


44V/  NWLr 

149)  IDUM 
149)  (ICLR, 1-1.7) 

,EQ.  2HRP  )  CO  TO  34 
.EQ.  2HRT  >  CO  TO  35 
.EO.  2H«f  >  STOP  0602 


112)  NOLF 
147)  IRUN 


149)  (ICLR, 1-1,7) 
612)  I HOUR , iMiN 
604)  1HOUR , IMIN 
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0737 

m 

•740 

•741 

IK 

0744 

074S 

0746 

0747 

0748 

0749 

mi 

07H 

07I5 

0756 

0758 

07S9 

0760 

0761 


GO  TO  05 


C 

C 

c 


•763 

0764 

0765 

m 

0768 

•769 

0770 


Store  acquired  data  on  a  disc  type  1  file. 


35  WRltE  (LI ,  l6$) 

CALL  CREAT  ( IDCB ,  IERR , IFILE . ISIZE , ITYPE , ISECU, ICR , ZDCB8) 

IF  (  I ERR  ,GT.  0  )  60  TO  $7 

WRITE  (LI,  101)  IFILE 

READ  (LI,  149)  IDUM 

WRITE  (LI ,  149)  ( ICLR , 1*1. 3 ) 

IF  (  IDUM  .EQ.  2H$*  >  STOP  0603 

SSiIe1?^  iS§i  i^iL^,}si8uT3c36 

CALL  PURGE  ( IDCB , IERR .IFILE , ISECU , ICR > 

if  (  ierr  .lt.  0  )  Stop  0^04 

GO  TO  35 

36  CALL  CODE 

WRITE  (NEW, 100)  IDUM 

WRITE  (LI,  102)  IFILE, NEW, IFILE(2) ,IFILE<3) 

IFILE ( 1 )  *  NEW 
GO  TO  35 

37  CALL  OPEN  ( IDCB, IERR. IFILE . IOPTN, ISECU, ICR , IDCBS) 

if  <  ierr  .lt.  0  >  Stop  0605 

^Lv  m v  ^?CB>ioE^Rs?8pTm' 

CALL  CLOSE  ( IDCB, IERR ,0) 

*“  *  -  .lt.  o  )  Stop  0607 


IF  <  IERR  _  _  _ 

IF  <  m  :I8:  l  )  mi  ifcBjttH  !FIfcfjJ8l%I8l:H8 

WRITE  (L0,612)  IHOUR,IMIN 

RETURN 

END 
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(<  NO  WARNINGS  **  NO  ERRORS  **  PROGRAM  •  03193 


COMMON  -  00000 


6 .  PROGRAM  TXC03 


6.1.  DESCRIPTION 

TXC03  is  a  son  program  of  the  father  program  TXCO0,  by 
which  it  is  scheduled  if  one  of  the  following  operations  is 
desired: 

7  -  Check  the  instrumentation 

8  -  Manipulate  the  program  control  array  CNTRL. 

When  scheduled  by  TXCO0 ,  which  suspends  operation  while  the 
son  program  TXC03  executes,  the  program  TXC03  reads  the  pro¬ 
gram  control  array  from  the  disc,  sets  the  HP  interface  bus 
and  the  measurement  and  control  devices  to  remote  control, 
preprograms  the  digital  voltmeter  (DVM) ,  the  scanners  and  the 
counter.  CNTRL (50)  is  the  actual  decision  variable  to  select 
and  call  the  subroutine,  which  performs  the  desired  operation. 
When  this  subroutine  has  terminated,  the  interface  bus  and 
the  devices  are  released  from  remote  control  and  the  control 
array  is  written  into  a  disc  file,  so  that  the  next  TXCO  module 
can  read  it.  The  correct  termination  of  each  subroutine  can 
be  verified  by  checking  the  stop  codes.  Mote  that  all  stop 
codes  ending  on  77  indicate  correct  execution  of  a  subroutine. 

CNTRL (50)  Subroutine  STOP  Code 

7  CHECK  TXC03  :  STOP  0777 

8  CHNGE  TXC03  :  STOP  1077 

EXTERNALS:  REWRP,  ABRT,  RMOTE ,  CHECK,  CHNGE,  CLEAR,  LOCL 
COMMON  BLOCKS:  FMP ,  CIBUP,  CONTR. 
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The  FORTRAN-IV  compiler  for  the  HP  21  MX  computer  requests 
COMMON  blocks  to  be  predefined  in  a  BLOCK  DATA  subroutine 
prior  to  using  a  COMMON  block  in  a  program,  subroutine  or 
function. 

BLOCK  DATA  Subroutine  Arrays  &  Variables  Length  in  Words 

FMP  IDCB , IFILE , ISIZE , ISECU , ICR  227B  =  1511Q 

CIBUF  IBUF  3200B  »  166410 

CONTR  CNTRL  40 OB  =  25610 

The  arrays  and  variables  allocated  by  the  COMMON  block  FMP  are 
frequently  used  for  the  data  transfer  from  and  to  the  disc. 

COMMON  block  CIBUF  is  designed  to  take  the  largest  raw  data 
array  in  the  TXCO  data  acquisition  and  reduction  system  - 
IBUF (1664)  in  subroutine  FREER.  The  program  modules  CHECK 
and  CHNGE  do  not  use  the  complete  area  allocated  by  CIBUF. 

COMMON  block  CONTR  allocates  the  space  for  the  control  array 
CNTRL. 


MNEMONIC  ABBREVIATIONS:  None 

ERROR  MESSAGES:  If  CNTRL (50)  is  less  than  7  or  greater  than 
8,  no  subroutine  has  been  selected  and  the  program  terminates 
outputting  an  error  message  (FORMAT  #102)  to  the  standard  in¬ 
put  device,  i.e.  the  terminal. 

PROCEDURE :  For  more  detailed  information,  study  the  flow 
chart  and  the  information  given  in  the  subroutine  descriptions. 


DATA  FILE :  None 
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VARIABLES  IN  BLOCK  DATA  FMP ; 


ICDB  (144) 

integer 

data  control  block 

IFILE  (3) 

integer 

array  to  contain  file  name 

ISIZE  (2) 

integer 

array  to  contain  #  of  records 

in  the  first  and  record  length 

in  16-bit-words  in  the  second 

word 

IS  ECU 

integer 

security  code  of  data  file 

ICR 

integer 

cartridge  reference  number, 

where  data  file  is  located 

VARIABLES  IN  BLOCK 

DATA  CIBUF: 

IBUF  (1664) 

integer 

buffer  array  for  the  raw  data 

VARIABLES  IN  BLOCK 

DATA  CONTR: 

CNTRL  (256) 

integer 

program  control  array 

VARIABLES  IN  PROGRAM  TXC03  s 

CNTRL  (256) 

integer 

program  control  array 

NOLF 

integer 

LI 

integer 

LU  •  of  standard  input  device 

(terminal) 

ISTOP 

integer 

control  variable  to  select 

STOP  code 
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BDM  CORP  MONTEREY  CA 

TRANSONIC  COMPRESSOR:  PROGRAM  SYSTEM 

OCT  80  H  ZEBNER 


UNCLASSIFIED 


NPS- 


6.2.  SUBROUTINE  CHECK: 


PURPOSE;  This  subroutine  enables  the  investigator  to 
(independently  from  the  data  acquisition  modules  ABSHV,  CALIB, 
FREER,  PACER,  COMB  and  STDY)  check  all  data  locations  to 
troubleshoot  or  verify  the  transonic  compressor  test  rig 
measurement  system. 

ARGUMENTS :  LO  ;  this  variable  specifies  the  output  unit 
where  the  protocol  of  the  check  is  directed  to.  In  any  case, 
the  data  are  displayed  on  the  standard  input  device  (terminal 
LI)  and  if  LO  is  equal  to  LI,  double  output  is  suppressed. 

The  selection  of  LO  »  6  (line  printer)  is  an  appropriate 
choice  for  a  hardcopy  of  the  check  protocol. 

EXTERNALS :  ACQN,  SCANR,  RPACE 

COMMON  BLOCK:  CONTR;  for  detailed  explanation  refer  to  the 
TXC03  description. 

MNEMONIC  ABBREVIATIONS:  None 

ERROR  MESSAGES:  None 

PROCEDURE ;  For  more  detailed  information,  study  the  flow 
chart.  After  having  assigned  the  I/O  reference,  CHECK  asks 
the  operator  which  particular  system  should  be  checked. 
Instrumentation  code  system  being  checked 

1  S/V-S/V  controller  -  scanner  - 

DVM  -  system 


Instrumentation  Code  System  Being  Checked 

2  amplifier  -  scanner  -  DVM  -  system 

3  Pacer 

The  operator  then  selects  the  desired  code  and  the  program 
branches. 

i)  S/V  -  S/V  controller  -  scanner  -  DVM  -  system 

The  operator  has  to  input  the  number  (1  thru  5)  of 
the  S/V,  the  low  port  and  the  high  port.  Erroneous  input  will 
cause  the  program  to  re-request  the  data.  If  S/V  #2  is  se¬ 
lected  and  either  low  or  high  port  are  odd,  they  will  be 
increased  to  the  next  even  number.  In  increments  of  1  (2 
resp.,  if  S/V  #2  is  addressed)  the  subroutine  steps  from  low 
to  high  port,  taking  a  reading  of  each.  The  result  is  dis¬ 
played  and  printed  immediately.  Upon  completion  the  operator 
is  asked  whether  another  check  shall  be  done.  The  answer  is 
YES  or  NO,  and  if  YES  is  entered,  SUBROUTINE  CHECK  is  run 
again  from  the  beginning. 

ii)  amplifier  -  scanner  -  DVM  -  system 

The  operator  has  to  input  the  number  (1  or  2)  of  the 
scanner,  the  low  channel  and  the  high  channel.  Erroneous  in¬ 
put  of  the  scanner  #  will  cause  the  program  to  re-request  the 
data,  whereas  no  check  is  made  whether  the  boundaries  for  the 
scan,  low  channel  ILOW  and  high  channel  IHIGH,  are  correct. 

In  increments  of  1  the  subroutine  steps  from  low  channel  to  high 
channel,  taking  a  reading  at  each  port.  The  result  is  displayed 
and  printed  immediately.  Upon  completion,  the  operator  is 
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asked  whether  another  check  shall  be  done.  The  answer  is  YES 
or  NO,  and  if  YES  is  entered,  SUBROUTINE  CHECK  is  run  again 
from  the  beginning. 


iii)  Pacer 

The  operator  has  to  input  the  pacer  control  para¬ 
meters: 

ADCHNL  A/D  analog  input  channel  to  be  selected  by 
the  A/D  converter  multiplexer. 

PAMO  Pacer  mode 

=  1  allows  pacer  to  trigger  A/D  conversion  at 
the  specified  position  in  any  blade  inter¬ 
val.  The  variable  PAIR  is  ignored. 

**  2  causes  pacer  to  select  blade  pair  f  PAIR. 
PAIR  #  of  blade  pair  selected  (1  -  9) 

START  Start  count  to  step  through  blade  passage 

INCR  Increment  to  step  through  blade  passage 

STOP  Stop  count  to  step  through  blade  passage 

REP  Number  of  repetitions  at  each  individual  point 
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DATA  PILE: 


This  sketch  shows  how  the  pacer  control  parameters 
identify  the  location,  where  the  probe  takes  data. 
Upon  completion  the  operator  is  asked  whether 
another  check  shall  be  done.  The  answer  is  YES  or 
NO,  and  if  YES  is  entered,  start  to  read  this  sec- 
tion  SUBROUTINE  CHECK  again. 

None 


VARIABLES : 


LO 

integer 

LU#  of  standard 

output  device 

(line  printer) 

CNTRL (256) 

integer 

program  control 

array 

NOLF 

integer 

suppresses  line 

feed 

NOCR ( 2 ) 

integer 

suppresses  line 

feed  and  carriage 

return 

ICLR (3) 

integer 

clears  line  above  cursor 
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ADCHNL 

integer 

Pacer  control  parameter 

see  section 

PAMO 

integer 

j 

Pacer  control  parameter  i 

iii)  for 

PAIR 

integer 

Pacer  control  parameter 

detailed 

START 

integer 

Pacer  control  parameter 

„  explana¬ 

INCR 

integer 

Pacer  control  parameter 

tion 

STOP 

integer 

Pacer  control  parameter 

REP 

integer 

Pacer  control  parameter 

LI 

integer 

LU#  of  standard  interactive 

input  device  (system  terminal) 

LINES 

integer 

line  count 

IDIUM 

integer 

decision  variable 

IPORT 

integer 

#  of  desired  S/V  (1—5) 

I  LOW 

integer 

low  port  of  desired  S/V 

IHIGH 

integer 

high  port  of  desired  S/V 

ISTEP 

integer 

increment  to  step  from  low  to 

high  port 

IW 

integer 

delay  between  closing  S/V  port 

and  taking  the  DVM  reading  in 

tens  of  ms. 

V 

real 

pressure  reading  (raw  data) 

ISCR 

integer 

#  of  desired  scanner  (1  or  2) 

ILOW 

integer 

low  channel  of  desired  scanner 

IHIGH 

integer 

high  channel  of  desired  scanner 

LS 

integer 

LU#  of  the  desired  scanner 

D 

real 

voltage  reading  (raw  data) 

AVRGE 

real 

average  voltage  as  returned  from 

subroutine  RPACE 
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Check  ompUfiat  -  •sea mar  -  Jb'M 


— 


Ate  qoanfor  -to 
ant*r  PsKE* 
Cordtoi  panmddt 


Tftod  Mchnl, 
fit  HO  y  f*IPy  JB*r» 
ZHc*y  STOP 


Cat  m&R  <cOw= 
•fin*  RPACE  arid 
otitd  candtrd 
OU+pCtf  A>  C/H'Sf 

indicated  by  4  O- 


CMJL  R/*ce 


Rood  ottasron 
hQiiab/a  iouti 


X 


Dtqobty  data  on 
iemiinoi  (LX); 
1 Home  /mf  court. 


6.3.  SUBROUTINE  CHNGE: 

PURPOSE:  Change  any  element  of  the  program  control  array  CNTRL 
on  line  and  display  any  element  of  CNTRL. 

ARGUMENTS :  None 

EXTERNALS ;  CODE,  REWRF 

COMMON  BLOCK:  CONTRj  for  detailed  explanation  refer  to  the 
TXC03  description. 

MNEMONIC  ABBREVIATIONS: 

C  ...  Change  CNTRL  (i)  to  new  value 
D  ...  Display  current  value  of  CNTRL  (i) 

R  ...  Return  to  the  calling  program 
Note:  C  is  followed  by  the  value  of«i»  and  the  new 
value  for  «CNTRL  (i)»  and  D  is  followed  by  the  value 
of  «i». 

ERROR  MESSAGES:  None 

PROCEDURE :  For  more  detailed  information,  study  the  flow 
chart.  After  having  assigned  the  I/O  reference  and  reset 
the  line  count,  the  operator  is  asked  what  to  do.  The  input 
in  the  first  inverse  video  box  specifies  where  to  branch  to. 

i)  Change  CNTRL  (i)  to  new  value  Input:  C 

The  control  character  C  is  followed  by  the  value  of 
«i»  and  the  new  value  for  « CNTRL  (i)».  Each  of  the  latter 
data  items  has  to  be  aligned  to  the  right  margin  of  the  two 
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following  inverse  video  boxes.  If  the  input  is  to  be 
compiled  as  ASCII  code,  the  identifier  2H  has  to  precede 
the  two  input  characters. 

EXAMPLE  A)  Suppose,  the  time  delay  IW  between  closing 
a  S/V  port  and  taking  the  DVM  reading  shall  be  changed  to 
1  second,  which  is  100*10  milliseconds.  Enter 

fcl  fasol  1  mo  i 

and  press  the  RETURN  key.  The  subroutine  responds  dis¬ 
playing  the  message  CNTRL  (250)  changed  from  80  to  100.  Where 
80  is  the  previous  value  of  CNTRL  (250). 

EXAMPLE  B)  The  character,  used  to  display  the  just 
acquired  wave  form  in  subroutine  PACER  shall  be  changed  to 
the  asterisk  (  ■  2H*  ^  Enter 

soul  cz  2H»i_j1  blank,  because  subroutine 

PICTR  outputs  this  item 
in  Al-Format 

and  press  the  |  RETURN]  key.  The  subroutine  responds 
displaying 

CNTRL  (249)  changed  from  2H+u  to  2H*u  • 
where  the  add  sign  (  -  2H+ui)  was  previously  used  for  the  plot. 

ii)  Display  actual  value  of  CNTRL  (i)  [input:  D] 

The  control  character  C  is  followed  by  the  value 
of  «i»  and,  only  if  the  element  CNTRL  (1)  shall  be  displayed 
in  ASCII-mode,  the  string  «2H'»  .  The  data  for  «i»  has  to 
be  aligned  to  right  margin  of  the  second  inverse  video  box 
and  <C2H»  has  to  be  centered  in  the  third  box. 
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EXAMPLE  A)  Display  the  value  for  the  cartridge  reference 
number,  where  the  raw  data  files  are  located.  Appendix  A. 3 
(Program  Control  Array)  reveals  that  you  have  to  look  into 
CNTRL ( 30) .  Enter 

0QE 1  l  . -1 

and  press  the  RETORN  key.  The  subroutine  responds  by 
informing  you  that 

The  actual  value  of  CNTRL  (30)  is  26. 

EXAMPLE  B)  Display  the  first  two  characters  of  the  name 
of  the  raw  data  file,  which  are  written  into  CNTRL  (32) .  Since 
the  file  name  is  ASCII  coded,  the  ASCII-identifier  «2H»  must 
not  be  forgotten.  Enter 

SOD  I  . — J 

and  press  the  j  RETURN 1  key.  The  subroutine  responds  by 
informing  you ,  that 

The  actual  value  of  CNTRL  (32)  is  2HT5. 

This  information  reveals  that  the  last  data  acquisition  was 
a  combination  probe  survey,  since  there  all  data  file  names 
start  with  «T5»  . 

iii)  Return  [Input:  R] 

Enter  R;  Now  the  subroutine  asks,  whether  to  clear 
the  informative  responses,  displayed  by  this  subroutine 
previously.  Inputting  anything  else  but  NO  initializes  the 
program  to  clear  the  screen. 

Then  the  subroutine  terminates  writing  the  modified 
control  array  back  into  disc  file. 
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6.4.  PROGRAM  LISTING  TXCQ3 


PACE  MCI  FTN.  4 1 12  PH  TUE.,  23  SEP.,  1980 


FTN4.L 

BLOCK  DATA 
*.  /  FHP  / 
COHHON 


IDCB( 144) , XFILEC3) , ISXZE(2  > , ISECU,ICR 
COHHON  /  FHP  /  IDCBIFIlEIStZE,ISECU;iCR 
pTICEB  IDCB< 144) , 1FILE(3> , 1SIZEC2) 


FTM4  COMPILER t  HP92M0-1M92  REV.  1926  (790430) 
*«  NO  WARNINCS  *»  NO  ERRORS  ** 

BLOCK  COHHON  FHP  SIZE  »  001S1 


PACE  0002  FTN. 


4 1 12  PN  TUE. ,  23  SEP.,  i960 


mi 

000S 


M 

)009 

0010 

0011 


#BL(}C*_DAIA 


,  CIBUF  /  IFUF  ( 1664  > 
COMMON  /  CIBUF  /  IBUF 
INTEGER  IBUF ( 1664) 

END 


FTN4  COMPILER:  HP92060-16092  REU.  1926  (790430) 
**  NO  WARNINGS  <«  NO  ERRORS  ** 

BLOCK  COHHON  CIBUF  SIZE  -  01664 


219 


PACE  0013  FT*.  4il2  PM  TUE.,  23  SEP.,  1980 


mi 


0814 

mi 


,W/  CNTRLC2S6) 

COMMON  /  CQNTR  /  CNTRL 
INTEGER  CNTRL (256) 

END 


FTM4  COMPILER)  HP92Q6Q-16Q92  REV.  1926  (790430) 
**  NO  WARNINGS  **  NO  ERRORS  <* 

SLOCK  COMMON  CONTR  SIZE  -  002S6 
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PACE  0004  PTN.  4 1 12  PH  TUE.  ,  23  SEP . ,  IPSO 


•  024 


W 

g 


PROGRAM  TXC03  (3,94) 


Th*  operating  system  RTE  IV  B  requests  th*  data  acquisition 
program  TXCO  for  th*  on*  stop*  transsonic  compressor  to  b* 
Split  into  several  programs  scheduled  by  th*  father  program 
TXCO.  This  son  program  TXC03  consists  of  rh«  subroutines 
CHECK  and  CHNCE.  Th«s«  codes  handle  th*  equipment  check  am 
the  on  line  Modification  of  the  control  array .  The  data 
transfer  between  father  and  son  programs  take  place  via  the 

control  array  CNTRL  (disc  file  CHTRCFi  - 

IBUF  (disc  file  I BUFF) . 


r)  and  the  data  array 


Th 

P 


Author)  Hans  H.  Zebner 

Bate  t  March  12,  1910 

A  detailed  program  description  is  available  in  the  TXCO  leq 


* j  ‘  third'  son'  proqran'  of '  tather '  program'  t&£6.’ 


COMMON  /  CONTR  /  CNTRL 
INTEGER  CNTRL (256) 


DATA  NOLF  /006S37B/ 

131  FORMAT  <9X*“20X**A2) 

i02.I8R5filTi;LiIgS?3,!  PR0CRAH  *B0RTE,>, 

801  FORMAT  CCA*) 

1001  FORMAT  < "F1R7M3A1H0T3“> 

1201  FORMAT  ( "PF4G6T*) 

1501  FORMAT  < "CA*  > 

CALL  REURF  (-1,2) 

LI  -  CNTRL (19)’ 

IF  (  CNTRL(SO)  .LT.  : 


NO  SUBROUTINE  HAS  BE 


.OR.  CNTRL (SO >  .GT.  S  )  GO  TO  03 


V  w«» 

lltl 

00  A3 
0064 
006S 
0066 
0067 


m 

0870 

0071 

0072 

0073 

0074 

•  07S 

•  076 

UK 

•  079 
0080 

im 

0083 


C 

C 


0090 

0091 


Sat  interface  bus  and  devices  te  remote  control. 


dALL'ABRt' <>;£*' 
CALL  RMOTE  (8) 
CALL  RMOTE  (10) 

«i±  im  iiij 

WRITE  (  8,  801) 
WRITE  (10,1001) 

S5HI  (ii,ilSll 


Call  subroutine  indicated  by  CNTRL(S0)i 


ibto*’  i'  fcN+*L($6>  -6 . ........... 

» i  amtin?  -.fa-,  i  \  m.  si®<CNTRU5l>> 


Release  interface  bus  and  devices  from  renete  control. 


CALL'fcLEAft'j^ir 
CALL  LOCL  (7) 
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MCE  OQOS  TXCQ3  4tl2  PH  TUE.,  23  SEP.,  19SO 


01 

31 


"m. 


BTOP 

STOP 

fnii 


102) 


FTN4  COMPILER t  HP92060-16092  REV.  1926  <790430) 

t*  NO  WARNINGS  U  NO  ERRORS  **  PROGRAM  •  00220  COMMON 


00000 
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I* ACC  0006  FTN 


4)12  PH  TUE.,  23  SEP.,  1980 


SUBROUTINE  CHECK  <LO) 


C 

C 

8 

S 


Instrumentation  check, 

Author t  Hans  H.  Zebner 

0«t«  . s  January  ll,  1980  .  .  _ 

Detailed  program  description  is  auailabls  in  TXCO  log}  The 
Comment  statements  match  to  the  flow  chart  explanations. 


*\  Checks’ the  *  Instrumentation! . 

COMMON  /  CONTR  /  CNTRL 

INTEGER  CNTR  L ( 2S6  > ,NOLF , NOCR <  2 ) . I CLR ( 3 ) 
INTEGER  ADCNNL , P AMO , P AIR , START , I NCR , STOP , REP 


FOR.MATS 
3rM( 


0119 

0120 


**i 

*“2 

*"3 


100  FORMAT  <r . .  .  . 

*  “> 

101  FORMAT  (/“Enter  instrumentation  code“// 

S/V“/ 

Scanner*/ 

_  .  .  Pacer“//“  “A2> 

102  FORMAT  (/“Enter  S/U  ♦  ,  LO,  HI"21X,2A2> 

103  FORMAT  (/“  Scanniualue  S“l3/“  Porf “SX“Voltaae“> 

104  FORMAT  (I4,F13.6““>  ‘ 

105  FORMAT  (/“Enter  scanner  • 

106  FORMAT  (/5X“Scanner 

109  FORMAT  (“  Enter  “//"A/D  _  . 

**Blade  pair  Start  count  Increment 
*“8top  count  9  repetitions“A2// 

*7(“  “ ) , A2 ) 

110  FORMAT  (7tl3,lX>  > 

111  FORMAT  ("A/D  channel  Pacer  node  Blade  pair 
*  Start  count  Increment  Stop  count", 

S“  O  rep  it  it  ions" A2/ 1 11 ,X11, 111, H2>X10, 111,1 14, A2> 
ns  vam  r-Ent-r  YES  to  repeat “21X ,2A2) 


r  LO,  HI “17X ,2A2) 

is/*  , 

channel  Pac$r  node  1 


Check  completed") 
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7 


i*o4? 


tm 

0140 

IM& 

0143 

.1  BJA 


0148 


Til! 

Slit 

0156 

0157 

ill! 

•  160 


9164 

0165 

n& 

0168 

0169 

Si1?; 

0172 

0173 


FORMAT  ( (3A2) ) 

FORMAT  ( •F1R7M3A1H1T3-) 

FORMAT  3  CHECK  3  TOP 

/Ootll?B^040433B/ 
/01SS24B,0tSSlSB, 0065378/ 


DATA  N 
DATA  N 


DATA  I CUR 
U 


c 

c 

8 

c 


c 

c 

c 

c 

c 


CNTRL<19> 

'  0<NE.  LI  >  WRITE  (L0>100) 


Ask  operator  what  tha  instrument  c td«  is. 


WRITE  <LI>  101)  MOLF 

5lf?E  (ti1,  14$1  1?HlR,  1-1,8) 

IF  (  IDUM  .LT.  1  .OR.  IDUM 
GO  TO  <02,05,20)  IDUM 


.GT.  3  >  GO  TO  01 


02 


Chsck  8/Vj  Input  S/V  O,  law  part,  high  part. 


wiiiffe'  <ui) ' 

w!i?E  <Li; 

I?Ti?0*t 


1&2)  ’ NOCR . 

149) 


IF 

IF 


.LT. 

.LT. 


<  < ILOW  /2>*< 

<  <IHIGH/2)*< 


01 

01 


.OR. 
I^GO  TOR63 


IFORT 

ILOW 

1HICH 


.GT. 

05 

) 

GO 

TO 

02 

.GT. 

48 

) 

GO 

TO 

02 

.GT. 

48 

) 

GO 

TO 

02 

.NE. 

.ME. 


Ihigh 


IGM/2X2+2 


PAGE  0007  CHECK  4il2  PH  TUE. ,  23  SEP.,  1980 


IK* 

0176 
0177  C 


1233 


0245 


03  S5ilEL?Li:M?63,Lip6Rf ITE  <LO‘l03>  IP0RT 

LINES  -  LINES-*  3 


Read  6  output  voltages. 


04 


WRITE  (10,1001) 

DO  04  I*ILOW. IHICH, ISTEP 
IW  -  CNTRL<2$0> 

V  -  ACQN( I PORT, I ,  IW) 

IF  (  LO  . NE ,  Ll  >  WRITE  (LO,  104)  1,0 

am  WiN&i 

60  TO  07 


Chock  scanner)  Input  scanner  0,  low  channel,  high  channel. 


os  to  iff  (Lii’ioii'WcA 

-  <l!I 


READ  (LI,  *>  ISCR .ILOW, IHICH 
WRITE  (LI,  149)  (ICLR,I-i;2> 

IF  (  ISCR  .EQ.  1  >  LS  •  8 

IF  (  ISCR  .£□.  2  )  LS  ■  IS 

IF  (  ISCR  .LT.  1  .OR.  ISCR  .GT.  2  >  CO  TO  OS 

IF  (  LO  .NE.  LI  )  WRITE  (LO,  106)  ISCR 

WRITE  (LI.  106)  ISCR 

LINES  -  LINES-* 3 

ILOW  ■  ILOUtl 

IHICH  «  IHICH-*! 


Read  6  output  uoltages. 


awiyw; 


_ _ _ HIGH 

II  -  1-1 

D  •  SCANR ( LS ,11,1) 

iS.W^Li:'<?*4)4i!>,",TI  <L0'  I"*> 


06  LI  _ 
60  T 


07 


UA  »  A  W-T  9 

LINES-*! 


Check  pacer)  Input  pacer  control  parameters. 


20  WRITE  (L 
R^ 


109)  (NOLF,  I«1 ,2) 

S|f!f  it  ;  tU!  ^«S>MI"1*T**Tl,H"-8T“,’,w 

WRITE  (Li;  111)  NOLF , ADCHNL , P AHO , PAIR, 9T ART, INCR , STOP , REP , NOLF 
LINES  -  LxNES+2 

CALL  RPACE  ( ADCHNL, PAHO, PAIR , START, INCR , STOP , REP ,AURGE,1 ,LO> 
LINES  •  LINES-** 


Ask  whether  to  perform  more  test  samples. 


07  w#itE'  ai) '  i6*>'N6cii . 

m9  idum 

^5? 

^^0  .EQ.  6  )  WRITE  (LO,  108) 
END 
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PACE  0008  CHECK  4 t 12  PH  TUE . ,  23  SEP.,  1980 
PTH4  COMPILER)  HP92060-16092  REV.  192A  (790430) 

**  NO  WARNINGS  **  NO  ERRORS  t*  PROGRAM  -  01030  COMMON  ■  00000 
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PAGE  0009  FTN.  4il2  PH  TUE.,  23  8EP . ,  1980 


SUBROUTINE  CHNCE 


Modify  control  array  CNTRL (256)  interact ively . 
Author i  Hans  H.  Zebnar 


Author i  Hans  H. 
Data  i  January 
Detailed  proqram  a< 
Comment  statements 


.  Zebner 
y  11.  1980 

description  is  available  in  TXCO  loq;  The 
s  natch  to  the  flow  chart  explanations. 


* \  Enables  user '  to '  change  control  ’  array '  on-line*. 


m 


NTR  /  CNTRL 
RL(2S6)  _ 


INTEGER  I HEN  <  3  > , NOLF , NOCR  <  2 ) , ICLR  <  3 ) 

FORMATS  CHNCE  START 
too  FORMAT  (/"  Enter*// 

**  C,  1  and  new  value  of  CNTRL(X)  ...  to 
*  change  the  desired  element  1*/ 

*“  D,  I*28X“ . . .  to  display  the  desired  element  I" 

*/•  R  “28X* . . ,  to  return  to  the  calling  program*// 


**  “A2> 

101  FORMAT  (A1 ,1X,I3,1X,3A2) 

102  FORMAT  (16$ 


103  FORMAT  ( “CNTRL( “13* >  changed  from  *16*  to  *16*  .“) 

104  FORMAT  ( “CNTRL( “13* )  changed  from  2H*A2“  to  2H*A2* 

105  FORMAT  (*  Clear  screen?  YES  or  NO  *2A2> 

106  FORMAT  ( *The  actual  value  of  CNTRL(*I3*>  is“I7“  .  * > 

107  FORMAT  (‘The  actual  value  of  CNTRL( “13“ )  Is  2H-A2' 
149  FORMAT  (<3A2)) 

FORMATS  CHNCE  STOP 


bs?a  mm'  040433B/ 

DATA  ICLRntr/0 1|^24B ,  0 1SS1SB ,0065378/ 

i4cr  -  oN  L<i 


Input  instructions  from  keyboard. 


oi  wAitfe  <l1,  1661  n6lf 

READ  (LI,  101)  IDUM .ICNT , I NEW 

URITE  (LI,  149)  (ICLR,I«1,8> 


V  <  iBuR 

IF  (  IDUM 
GO  TO  01 


1^7 /  V iUUM i lO/ 

:I8:  ItS  i  8SIUI 

.EQ.  2HR  )  CO  TO  06 


Change  dosired  element  of  control  array  CNTRL. 

02  tsWi'  ISCRti . * . . . 

I OLD  ■  CNTRL(ICNT) 

IF  (  INEU< 2)  .NE.  2H2H  )  GO  TO  03  - 

CNTRL (ICNT)  »  ZNE«(3) 

03  £aLL°Co£e 

READ  ( I NEW.  102)  CNTRL (ICNT) 

•*  if ! 

60  TO  01 


PACE  0010  CHNGE  4tl2  PH  TUE.,  23  SEP.,  1980 


Display  dasirsd  olcnant  of  control  array  CNTRL. 

os  iscr‘  •'  iscR+i . . . . . .  •  *  *  • 

ifim®  M-  W  >’  Jl&ff  <££ '  iM)  ’  ifflT '  ffliy M)’ 

60  TO  01 


c 

8 


140 


Torninat*  Modification  of  control  array  CNTRL }  writs  it 
back  to  tha  disci  rsturn  to  calling  program. 


06  wfcitfe  (Li,  n6cr 
READ  (LI,  149)  1DUH 
IF  (  1DUH  .EQ.  2HN0  )  60  TO  07 

.7  55.1*%,  Mi  U»Mm  ,LI>  'MUMM,.**. 

Sftb.r"1*  “•2> 

END 


FTN4  COHPILER:  HP92060-16Q92  REV.  1926  (790430) 

**  NO  WARNINGS  S*  NO  ERR0R8  S*  PROCRAH  •  0QS81  COMHON  -  00000 


7.  UTILITY  SUBROUTINE  PACKAGE  TXCOU 
7.1.  Description 

Subroutines  and  functions,  which  are  commonly  used  by 
either  TXC02 ,  TXC02  or  TXC03 ,  are  contained  in  the  utility 
package  TXCOU  (source  code  is  saved  in  file  &TXCOU;  relocatable 
binary  code  is  saved  in  file  %TXCOU) .  Thus  the  length  of  the 
TXC01,  TXC02  or  TXC03  source  files  can  be  kept  to  minimum, 
which  allows  editing  and  recompiling  TXCOl,  -2,  -3  separately, 
which  saves  time.  When  loading  TXCOl,  -2,  -3,  the  load  of 
the  utility  subroutines  has  to  be  included  using  the  multiple 
search  loader  command  (MS,%TXCOU).  Since  the  utility  sub¬ 
routines  and  functions  are  short  and  straightforward,  the 
comment  statements  and  program  explanation  included  in  the 
code  serve  to  describe  them.  The  present  section  briefly 
outlines  the  utility  subroutine  package. 


Name 

Purpose 

Author 

ACQN 

Positions  Scanivalve  (S/V)  and 

reads  DVM 

Geopfarth 

CNTL 

Closes  scanner  channels,  which 

control  the  S/V  controller,  HG78K 

Geopfarth 

CURVE 

Computes  coefficients  for  a  linear 

curve  fit 

McGuire 

ICON 

Converts  a  one  or  two  digit  inte¬ 
ger  into  a  two  character  ASCII 

string 

Geopfarth 
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frame 


Author 


IPORT  Interrogates  S/V  controller  and 
returns  the  present  port  # 

PICTR  Uses  the  (24  x  80  dot)  CRT  of  a 
terminal  for  a  graphics  display 
of  data  acquired  with  the  PACER 
REWRF  Data  transfer  disc  file  to  pro¬ 
gram  array  and  vice  versa 
RPACE  Triggers  A/D  through  the  PACER 
and  calculates  the  average 
voltage 

SCANR  Closes  scanner  channel  and  reads 
the  DVM  or  digital  counter 
TIME  Obtains  date  and  time  in  ASCII- 
format 

WAIT  Causes  a  defined  time  delay 


Geopfarth 


Zebner 


Zebner 


Zebner 


Geopfarth 

Zebner 

Geopfarth  (Original) 
Zebner  (Modification) 


REAL  FUNCTION  ACQN 

Arguments:  INTEGER:  I VALVE,  IADES,  IW 


I VALVE  -  Desired  S/V  # 

IADES  -  -  -  Desired  port  #  of  S/V 
IW  -  -  -  -  -  Time  delay  in  tens  of  ms  between 
closing  transducer  relay  and 
taking  the  DVM  reading 
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Example :  The  pressure  on  S/V  #4,  Port  #18  is  to  be  read  with 
the  time  delay  to  be  0.5  sec  (=  500  ns  =  50  x  10  ms).  The 
correct  call  is 

IVALVE  =  4 
IPORT  =18 
IW  =  50 

PRES  *  ACQN  (IVALVE,  IPORT,  IW) 
or 

PRES  »  ACQN  (4,  18,  50) 

In  both  cases  the  DVM  reading  is  written  into  the  real 
variable  PRES. 

It  is  desirable  to  step  forwards  systematically  and 
sequentially  through  the  required  parts  of  a  S/V  in  order  to 
reduce  unnecessary  wear.  Whenever  a  S/V  is  scanned,  the 
operator  should  watch  the  data  system  closely.  In  some 
cases  (e.g.  if  the  HP  9830  is  brought  on  line)  the  HP- 
Interface  bus  and  the  devices  may  be  downed.  If  this  hap¬ 
pens  when  the  program  ACQN  has  closed  the  scanner  channels 
(on  scanner  #1)  which  either  resets  or  advances  the  S/V  the 
S/V  relay  will  burn  out.  To  prevent  damage,  the  operator 
must  turn  off  the  power  to  scanner  #1  immediately,  then 
bring  the  data  system  up  again  using  the  UP-command  (see  HP 
manuals) . 

SUBROUTINE  CNTL  (ICHAN,  IDEL,  ISTEP,  K) 

Arguments :  INTEGER:  ICHAN,  IDEL,  ISTEP,  K 

ICHAN  -  -  -  Channel  #  of  scanner  #1  (LU#  »  8) 
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IDEL 


number  of  repetitions  to  close 
the  scanner  channel 


ISTEP  -  -  -  increment  to  step  from  1  through 
IDEL 

K  -  -  -  -  -  Function  code 


K  *  1  Close  for  10  ms,  wait  for 

150  ms;  Repeat  "IDEL"  times 
return 

K  ■  2  Close  for  10  ms,  wait  for 
4  sec ;  return 
K  »  3  Close;  return 

An  example  is  unnecessary  since  the  only  subroutine  to  use 
SUBROUTINE  CNTL  is  the  REAL  FUNCTION  ACQN,  which  is  itself 
a  utility.  The  user  won't  have  to  deal  with  CNTL. 

SUBROUTINE  CURVE  (N,  X,  Y,  SLOPE,  SECON) 

Arguments :  INTEGER :  N 

REAL:  X(N) ,  Y(N),  SLOPE,  SECON 

N  -  -  -  -  Number  of  data  points 
X(N)  -  -  -  Abscissa  of  data  points 
Y (N)  -  -  -  Ordinals  of  data  points 
SLOPE  -  -  Slope  of  linear  curve  fit 
SECON  -  -  Intercept  of  linear  curve  fit 
Example :  Suppose  the  following  (N  *  6)  pairs  of  data  points 
shall  be  approximated  by  a  linear  curve  fit: 


X(l)  -  1.0 

Y  (1) 

-  105.6 

X (2)  -  2.5 

Y(2) 

■  105.4 
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=  3.0 

X  (4) 

=  5.0 

Y  (4) 

=  104.1 

X  ( 5) 

=  6.5 

Y  ( 5) 

-  102.9 

X  ( 6) 

*  8.0 

Y  ( 6) 

*  102.7 

The  situation  is  shown  in  the  following  sketch: 


1 - ' - - - - - - - r  — -  - - - - - -f-p> 

Of  2  3  4  S  6  9  3  9  n  X 

To  obtain  the  slope  and  the  intercept  of  the  linear  curve  fit 
(which  is  derived  using  the  least  squares  criterion) ,  program 
CALL  CURVE  (6,  X,  Y,  SLOPE,  SECON) 

and  the  results  will  be  returned  from  SUBROUTINE  CURVE 
SLOPE  *>  -.461 


SECON  «  106.247 
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INTEGER  FUNCTION  ICON 

Arguments :  INTEGER:  I,  N 

I,  N  -  -  -  Two  integer  numbers  to  be  added 
ICON  -  -  -  The  result  of  the  addition  (which 
should  not  exceed  two  digits) ,  but 
ASCII  converted. 


Example :  Suppose  the  data  documentation  page  IPAGE  shall  be 
converted  to  an  ASCII-string  named  JPAGE.  The  correct  call  is 
JPAGE  ■  ICON  (IPAGE,  0) 


or 


JPAGE  =  ICON  (0,  IPAGE) 

The  bit  structure,  if  IPAGE  is  711Q,  is  as  follows: 


IPAGE: 

JPAGE: 


01000111 

00110001 

— 

ASCII-converted 
one  (1) 

ASCII  converted  71 


INTEGER  FUNCTION  IPORT 

Arguments :  INTEGER:  IVALVE 

IVALVE  -  Desired  S/V  (1  through  5) 

Example :  The  call 

INHERE  -  IPORT (5) 

returns  the  present  port  #  of  S/V  #5  and  writes  it  into  the 
variable  INHERE. 
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SUBROUTINE  PICTR 


Arguments :  INTEGER:  LO,  NUMBER,  NEWPG,  ICL,  ISIGN 

REAL:  AMPL 

LO  -  -  -  -  Defines  terminal  LU#  (either  1  or  18) 
NUMBR  -  -  Identifier  to  appear  in  the  "drawing" 
NEWPG  -  -  No  significance!  Will  be  altered  by 
PICTR 

ICL  -  -  -  No  significance!  Will  be  altered  by 
PICTR 

ISIGN  -  -  Character  to  be  used  for  the  drawing 
AMPL  -  -  -  Amplitude  range  of  the  raw  data 
returned  to  the  calling  program 
Subroutine  PICTR  is  designed  for  the  TXCOl-subroutine 
PACER,  from  which  it  gets  the  data  through  the  COMMON  block 
CIBUF.  PICTR  uses  the  enhanced  display  capabilities  of  the 
video  terminal  to  produce  a  "drawing"  which,  of  course,  is 
of  limited  resolution.  It  allows  the  operator  to  verify  the 
acquired  raw  paced  run  data  qualitatively  by  checking  the 
"drawing"  against  the  oscilloscope  display.  See  the  listing 
of  subroutine  PACER,  if  an  example  is  needed. 

SUBROUTINE  REWRF 

Arguments :  INTEGER:  I REWRF,  IWHATA 

I REWRF  -  -  Determines  whether  the  array  indi¬ 
cated  by  IWHATA  shall  be  read  from 
a  disc  file  into  an  array  or  whether 
it  shall  be  written  into  a  disc  file 
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IREWRF  *  -1  Read  data  from  disc  file  into 


array 

IREWRF  *  +1  Write  data  from  array  into 
disc  file 

IWHATA  -  -  Specifies  the  type  of  data  to  be  transferred 
IWHATA  »  1  Array  IBUF  ■*-*•  disc  file  IBUFF 
IWHATA  »  2  Array  CNTRL  disc  file  CNTRLF 
This  subroutine  relieves  the  individual  TXCOl,  -2,  -3 
subroutines  from  the  routine  task  of  data  transfer  between  disc 
and  program  (CP) . 

Example :  The  four  applications  are: 

i)  Read  the  program  control  array  from  disc  file  CNTRLF: :26 
into  array  CNTRL:  CALL  REWRF  (-1,  2) 

ii)  Write  the  program  control  array  from  array  CNTRL  into 
disc  file  CNTRLF:: 26:  CALL  REWRF  (1,  2) 

iii)  Read  the  raw  data  buffer  from  disc  file  IBUFF:: 26  into 
array  IBUF:  CALL  REWRF  (-1,  1) 

iv)  Write  the  raw  data  buffer  from  array  IBUF  into  disc  file 
IBUFF:: 26:  CALL  REWRF  (1,  1) 

SUBROUTINE  RPACE 

Arguments :  INTEGER:  ADCHNL,  PAMO,  PAIR,  START,  INCR, 

STOP,  REP,  IPRINT,  LO 
REAL:  AVRGE 

ADCHNL  -  -  A/D  input  channel  to  be  selected  (0...15) 
PAMO  -  -  -  Pacer  mode  (1  or  2) 

PAIR  -  -  -  Blade  pair  (1...9) 

START  -  -  -  Start  location  (in  counts)  for  data  scan 
across  the  blade  passage 


INCR  -  -  -  Step  size  (in  counts)  to  scan  across 
the  blade  passage 

STOP  -  -  -  stop  location  (in  counts)  for  data 
scan  across  the  blade  passage. 

REP  -  -  -  -  Number  of  repetitions  at  each  loca¬ 
tion  in  the  blade  passage 

IPRINT  -  -  Flag  to  decide  whether  to  output 
intermediate  information 
IPRINT  »  1  Print  all  intermediate 

data  and  suppress  pointer 
at  the  terminal 

IPRINT  *  0  Suppress  printed  output 
and  initialize  pointer 
at  the  terminal 

LO  -  -  -  -  LU#  of  device  for  printed  output 

AVRGE  -  -  -  Average  voltage  of  paced  run  data 
This  subroutine  is  the  control  program  to  acquire  data 
from  the  A/D  converter  in  the  synchronized  PACER  mode.  (See 
also  the  description  of  subroutine  PACER  (Section  4.5),  where 
the  synchronized  sampling  is  explained.)  Although  the  (de¬ 
coded)  voltages  from  the  A/D  converter  are  REAL  numbers 
between  -1.0  volt  and  +1.0  volt,  the  data  storage  uses  an 
integer  array.  Before  writing  the  voltages  into  the  data 
array,  they  are  multiplied  by  10,000.  Note  that  if  one  of 
the  PACER  control  parameters  is  out  of  the  defined  range 
is  set  to  a  default  value  without  outputting  any  warning. 

The  subroutine  contains  a  large  number  of  I/O  statements 
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which  were  necessary  during  the  development  of  the  TXCO  pro¬ 
gram  system.  In  order  to  increase  speed,  the  unnecessary 
statements  should  be  removed.  A  further  improvement  would 
be  a  conversion  from  FORTRAN  to  ASSEMBLER  programming  lan¬ 
guage.  An  example  of  a  call  to  subroutine  RPACE  is  contained 
in  the  description  and  listing  of  subroutine  PACER  (Section 
4.5)  . 

REAL  FUNCTION  SCANR 

Arguments :  INTEGER:  LU,  ICHAN,  K 


LU  -  -  -  -  Logical  Unit  #  of  the  desired  scanner 
(either  8  -  scanner  #1  or  15  -  scan¬ 
ner  *2) 

ICHAN  -  -  -  Scanner  channel  (integer) 

K  -  —  -  -  -  Instrument  code 

K  *  1  Read  the  DVM 
K  *  2  Read  the  digital  counter 


Example  A:  To  obtain  the  torque  reading  from  the  transonic 
compressor  test  rig,  which  is  fed  into  scanner  #1  (LU  »  8) , 
channel  36,  program 
LU  «  8 
ICHAN  -  36 
K  -  1 

TORQUE  -  SCANR  (LU,  ICHAN,  K) 
or 

TORQUE  *  SCANR  (8,  36,  1) 

In  both  cases  the  DVM  reading  is  written  into  the  real  varia¬ 
ble  TORQUE. 
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Example  B:  To  obtain  the  RPM  of  the  Allis-Chalmers  (central 
air  supply)  compressor,  program 
LU  -  8 
ICHAN  *  15 
K  -  2 

RPMAC  =  SCANR  (LU ,  ICHAN,  K) 
or 

RPMAC  *  SCAUR  (8,  15,  2) 

In  both  cases  the  reading  of  the  digital  counter  is  written 
into  the  real  variable  RPMAC. 

Example  Instrument  Code  Instrument  Read 

A  1  Digital  Voltmeter 

B  2  Digital  Counter 

SUBROUTINE  TIME 

Arguments:  INTEGER:  IMON,  I DAY,  I YEAR,  IHOUR,  IMIN, 

I  SEC 

IMON  -  -  -  ASCII  converted  month  of  the  year 

I YEAR  -  -  -  ASCII  converted  last  two  digits  of 

current  year 

IDAY  -  -  -  ASCII  converted  day  of  the  month 

IHOUR  -  -  -  ASCII  converted  hour  (24-hour  clock) 

of  the  day 

IMIN  -  -  -  ASCII  converted  minute  of  the  hour 

I SEC  -  -  -  ASCII  converted  second  of  the  minute 

IMON,  IDAY  and  IYEAR  are  obtained  from  the  program  control 
array;  IHOUR,  IMIN  and  ISEC  are  obtained  from  the  system 
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clock  through  an  EXEC  call;  all  variables  are  returned  to  the 
calling  program. 

Example:  Suppose  the  system  clock  is  set  correctly  and  the 
control  array  CNTRL  is  defined,  i.e.,  CNTRL  was  read  from 
the  disc  file  and  adjusted  to  the  actual  conditions;  then 
the  following  code 


603  FORMAT  ("Date  &  Time:  "A2"/"A2"/"A2 , 2X, 
*A2H:"A2) 

CALL  TIME  ( IMON , I DAY , IYEAR , IHOUR , IMIN , ISEC ) 
WRITE  (6,6J?9)  IMON, IDAY, IYEAR, IHOUR, IMIN 


produces  the  following  output: 


Date  &  Time:  09/27/8JI  21:57 


SUBROUTINE  WAIT 

Arguments :  INTEGER:  TWAIT 

TWAIT  -  -  -  Time  delay  in  tens  of  milliseconds 
Example :  To  cause  a  defined  time  delay  of  5,7  sec  (»  5700  ms 
570  x  10  ms) ,  program 
ITWAIT  «  570 
CALL  WAIT  (ITWAIT) 
or 


CALL  WAIT  (570) 
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PROGRAM  LISTING  TXCOU 


PACE  0001  FTN .  9iS7  PH  SAT.,  27  SEP.,  1980 


FTN4 , L 


REAL  FUNCTION  ACQN  < IVALVE , IADES , IU> 


Position  scannivalve  IVALVE  to  port  IADES  and  d«fin«  ACON 
ths  DVM  output  voltage.  A  tins  dalay  of  (IWAITSia)  ns  occ 
between  port  sslsction  and  voltage  nsasursntnt.  ths  DVH  i 
triggered  by  issuing  HP-IB  subroutins  TRIGR. 

Author!  Robsrt  N .  Gsopfarth 

Ka3eiailed  prograX  leicription  is  awailabls  in  TXCO  loq. 
variables  ars : 

IVALVE  ...  Dssirsd  S/V . 


IADES 

IAPR 

ICHAN 

ACQN 

IU 


Dssircd  S/V  port  0. 

Present  S/V  port  ♦. 

ASCII  converted  scanner  channel. 
Transducer  voltage  as  read  fron  DVH. 
Tine  delay  factor. 


si  Posit  ions' scannivaive  and  reads’ DVH 1  Utilities! ' 

801  FORHAT  <"C*> 

901  FORHAT  </"  SSSS  ERROR  DETECTED  IN  REAL  FUNCTION  ACQN:"/ 
S  "  SSSS  CHECK  FOR  BAD  PARAMETER  IN  CALL!*/ 

S  "  SSSS  IVALVE  *"I3“  IADES  *"I3"  IU  «*I4/> 


ISTEP  ■  1 
IF  <  IVALVE 
IF  <  IADES 
IF  (  IVALVE 


:8r:  We  :K:  a!  S8  T8  %t 

.OR.  IVALVE  .EQ.  3  )  ISTEP  »  2 


Conpare  present  port  O  to  desired  port*. 


oi  iA^'i'  i£6R+<iOALv£5‘ 


Desired  port  below  present  port}  reset  S/V 


02  ICHAN  -  ICON< IVALVE, 4) 
K  -  2 
GO  TO  OS 


Present  port  is  present  port;  close  X-ducer  relay  A  read 


03  ICHAN  -  ICON< IVALVE, 9) 
&o“t8  OS 


Desired  part  is  above  present  port;  advance  S/V. 


04  ICHAN  -  ICON < IVALVE, -1  > 
K  •  1 


Control  S/V. 


||  c  os  bULL’ chtC  (tbMH, iDELli&ffeMJ 

73  IF  (  K  .NE.  3  !  50  fo  11 


PAGE  0002  ACQN  9iS7PM  SAT.,  27  SEP.,  1980 


0077 

1078 

0079 

0080 

0081 

0082 

0083 

mi 

0086 

0087 


0090 

1091 

mi 

0094 

009S 


C 

c 

c 


-Pause  and  rsad  transducer  output  voltage. 


CALL.  UAlt  <IU) 
CALL  TR IGR  (10) 
REAS  (10. 

TRIGR 

rE 

RETURN 


(10) 

*) 

801) 


DUN 

ACQN 


Error  encountered)  output  error  nessaqe)  return. 


06  uAitt  (  k,  ^6 i i  tvALv£,tM>fe$,tw 
RETURN 
END 


FTN4  COMPILER!  HP92060-16092  REV.  1926  (790430) 

**  NO  WARNINGS  **  NO  ERRORS  **  PROGRAM  ■  00237  COMMON  >  00000 
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PACE  0003  FTN,  9iS7  PH  SAT.,  27  SEP.,  1980 


0096 

0097 

S098 

0099 

0100 

0101 

0102 

0103 

0104 

OIOS 

0106 

0107 

0108 

0109 

0110 

0111 

9112 

3H13 

0114 

0115 

0116 

0117 

\\\% 


C 

g 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

g 

c 


0120 

0121 

100 

Oil! 

0124 

012S 

0126 

10 

\ nu 

C 

200 

0129 

0130 

0131 

r 

0134 

300 

013S 

0136 

C 

0137 

0138 

60 

62 

0139 

SUBROUTINE  CNTL(  XCHAN , IDEL, ISTEP ,K ) 

0,  Closes  scanner  channel.  * 

THIS  PROGRAM  CLOSES  SCANNER  CHANNEL  * I CHAN" 
"IDEL"  TINES  IN  STEPS  DF  “ISTEP*  BASED  UPON 
PROGRAM  OPTIONS  SPECIFIED  BY  "K “ .  < I CHAN  MUST 
BE  AN  ASCII-CONVERTED  INTEGER.) 


K 

FUNCTION 

1 

CLOSE  FOR  10 -MS 
ISO-MS.  REPEAT 

WAIT 

“IDEL 

FOR 

*  TIMES. 

2 

CLOSE 

4-SEC 

FOR  10-MS 
RETURN. 

WAIT 

FOR 

3 

CLOSE 

RETURN. 

AUTHOR!  R.N.  GEOPFARTH,LT  USN 
DATE!  JAN  79 

GO  TO (100, 20 0,300) ,K 

DO  10  1-1. IDEL. ISTEP 
WRITE ( 8 , 60 ) I CHAN 
CALL  WAIT  < 1 ) 

WRITE (8, 62) 

CALL  WAIT (15) 

CONTINUE 

RETURN 

WRITE(8 ,60 ) ICHAN 
CALL  WAIT(l) 

WRITE (8 ,62) 

CALL  UAtT(400) 

RETURN 

WRITE(8,60) ICHAN 
RETURN 

FORMAT (A2) 

FORMAT (“C“) 

END 


F7N4  COMPILER!  HP92060-16092  REV.  1926  (790430) 

**  NO  WARNINGS  **  NO  ERRORS  **  PROGRAM  -  00088  COMMON 
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00000 


PAGE  0004  FTN.  9 tS7  PH  SAT.,  27  SEP.,  1780 


C 


C 

g 

c 

c 

c 


mi  g 


c 

•c 


SUBROUTINE  CURVE  <N,X,Y, SLOPE, SECON) 


Compute  linear  curve  fit  using  least  sqcare  roe*  Method. 
Authors  Alan  G.  McGuire 

Dates  February  21,  1980 

A  detailed  oroqram  description  is  available  in  TXCO  log.  The 
connent  statenents  and  statenent  nunbers  natch  to  the  ones 
used  in  the  flow  chart. 


*.  Computes  linear  curve  fit. 

Seal  X<n1,y<n) 
sumpo  »  o. 

SUME0  »  0. 

tUMVP  -  0. 

UME2  -  0. 

DO  1  I-i,N,i 

SUME0  ■  SUME0  *  XU) 

SUMPO  -  SUMPO  *  Y(I) 

SUMVP  -  SUMVP  <X(I)*Y<I>> 

01  SUME2  *  SUME2  +  X<I)*X(I> 

RN  -  FLOAT <N) 

tNUM  «  <  RN4SUMVP )  -  (SUME04SUMP0 > 
DEN  «  <RN*SUM£2>  -  < SUMEQ4SUME0 > 
SLOPE  -  SNUM/SDEN 
SECON  -  ( SUMP  0 - <  SLOP  ESSUME  Q ) ) /R  N 
RETURN 
END 


FTN4  COMPILER!  HP92060-16092  REV.  1926  (790430) 

**  NO  WARNINGS  **  NO  ERRORS  t*  PROGRAM  *  00176 
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c 

c 


c 
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0169 

0170 

0171 

m 

0174 
•  17S 


017 

0178 

0179 

mi 

0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 


C 

c 

8 

c 

c 


INTEGER  FUNCTION  ICON  <I,N> 


m  e 


c 

c 


Converts  integer  numbers  into  ASCI  string. 

Author:  Robert  N.  Geopfarth 

Date:  January  31,  1979 

Because  of  the  simplicity  of  the  program  the  program 
description  is  included  m  this  box. 

I,  N  ...  integer  numbers  to  be  added. 

IC  ...  integer  number  to  be  converted  into  A8CII. 

ICON  ...  2  -  character  ASCII  string  to  be  returned 


*,  Convertes  integer  to  ASCII-str ing . 
100  FORMAT  (12) 


IC  -  I+N 
IF  <  IC  .LT. 


10  )  GO  TO  01 


CALL  CODE 

WRITE  (ICON, 100)  IC 
RETURN 

01  ICON  -  IC+30060B 
RETURN 
END 
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{ 

( 

I 

! 

I 

! 


0195 
0196 
t»  197  C 

m  g 


c 

c 


019 
0200 
0201  _ 

m  s 

0204  C 
0205  C 

m  8 

0208  C 
0209  C 

m  8 

0212  C 

Its 

0215 

0216 

0217 

0218 

0219 

0220 

0221 


INTEGER  FUNCTION  IPORT  (IVALVE) 

*,  Interrogates  scanni valve.  * 

INTO  A  DECIMAL  VALUE. 

VARIABLES i 

RVALUE  -  V1 INPUT7 BUFFER 

C!B  :  mh  IffiKF:  m\ 

IPORT  -  DECIMAL  S/V  ADDRESS 
gU||ORi  $£{J>7§E0PFARTH>l-T  USN 

LU  ■  14  ♦  2100B 

CALL  EXEC(2fLU, IVALVE*256,-1) 

CALL  EX£C11'lU,IP,“1) 

IP-IP/2S6 

MSD  •  IAND< IP/16, 7B) 

LSD  -  IAND( IP ,178) 

IPORT  -  10SMSD  +  LSD 

RETURN 

END 
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I 


00000 
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PAGE  00*7  FTN. 


9 i 57  PH  SAT.,  27  SEP.,  1980 


SUBROUTINE  P1CTR  (LO ,NUHBR , NEWPG, ICL, ISIGN,AMPL) 


Use  terminal  screen  for  qrafic  display. 


4234 

023S 

m 

0238 

0239 
0240 
0241 
0242 
0243 
0244 
r  0245 
^  0246 
0247 
0248 

Ill! 

02S1 


REAL  CLR  ( 64 ) 

INTEGER  IBUF < 1664) 

JNj|G|RLBLACrf<||jG|Ef  (iV*yHI+EVi)  (,1g(2>  ,LN<2)  ,TEXT(20) ,HJF(3> 


DATA  NOCR 
DATA  ICLR 


/000033B , 040433B/ 
/Q1SS24B, Q1SS1SB , 006S37B/ 


MIS  SW5I  /Uliltl'.SliiSSl/ 

DATA  GREY  /015446B,062112B/ 

DATA  HJF  /0 1SS10B, 01SS12B, 0155068/ 

DATA  1 CLEAR  /2H  /  _  _ 

:  FORMATS  PICTR  START 

1801  FORMAT  ( 2A2 , 79X . 3A2 > 

1803  FORMAT  < A2"a‘ I3*r “ 13-CFiaur* -13- :  "20A2) 

1805  FORMAT  <  2A2 , 8 X , 2 A2 , 6SX , 2A2 . 6X , 3AZ ) 

1806  FORMAT  < A2"a" 13 "r “I3«C*F6 . 3 ) 

1807  FORMAT  < 2A2 .8X , 2A2 . IX .4< 2A2, 15X , 2A2, IX) ,2A2,6X) 
4809  FORMAT  <"  "Ea . 3 , 4Fi6 . 3) 

ill 9  fSrRaI  <A2"a*I3*r-I3"C"Ai,2A2) 

:  FORMATS  PICTR  3 TOP 

IF  (  IFRST  . EQ .  1  )  GO  TO  21 

IFRST  -  1 
NEWPG  -  1 

21  IF  (  NEWPG  .EQ.  1  )  ICL  •  0 
IF  (  LO  .EQ.  1  )  GO  TO  01 


IF  (  LO  .EQ.  1  )  GO  TO  01 
01  G*S?<1>18  >  G°  T°  02 

r3GHEY(2> 

02  m\  :  VMM 

03  BG( 1)  -  WHITE(l) 

BG(2)  «  WHITE (2) 

IF  (  ICL  .NE.  1  )  CO  TO  25 


Clear  dots  in  frame  w/e  erasing  the  frame. 


11  IROW  -  11 
ICOL  •  7 
CALL  CODE 

WRITE  (PLOT. 1819)  BLACK <1> , IROW, ICOL, ICLEAR, NOCR 
WRITE  (LO, 1817)  PLOT 

x  -  j 

12  IF  (  CLR  < I )  ,GE.  X-0.S  .AND.  CLR(I)  .LT.  XfR.5  )  MOP DM  -  J 
IROW  -  lt-NUPDN 

ICOL  »  7*1 
CALL  CODE 

13  8SHI  r^LSV^ 1 1 J  1C0«->  ^MCHriR 


Get  the  curve  in  the  fermat  required  by  PICTR. 


2S  J-0 

DO  04  1-1,256,4 


DO  04  1-1 
CLR  < I >  - 


CLR < J >  -  IBUF(I>/100«0. 

XMIN  -  CLR ( 1 ) 

XHAX  -  CLR  < 1 ) 

IF  (  ICL  .EQ.  1  )  CO  TO  43 
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DO  41  1-1.64 

IF  (  CLR(f)  .GT.  XHAX  )  XHAX 

41  IF  <  CLR(I>  .LT.  XHIN  )  XHIN 
AMPL  -  XMAX 

IF  (  BS(XHXN)  .GT.  XHAX  >  Al 
IF  (  hHPL  .LE.  0.001  .AND 

IF  (  AMPL  .LE.  0.002  .AND 

\t\m  :ti:  IM\  :»8 

IF  (  AMPL  .LE.  0.050  .AND 

IF  (  AHPL  .LE.  0.100  .AND 

if  !  aSSt  :tl:  1:181  :S» 

IF  (  AHPL  .LE.  1.000  .AND 

IF  <  AHPL  .LE.  2.000  .AND 

Yr  \  OTt  :ti:  iS:8S2  :«S8 

43  CONTINUE 

DO  42  1-1.64 

42  CLR < 1 >  «  CLR ( I)t< 10 . 0/AHPL) 

IF  (  NEWPC  .NE.  1  )  GO  TO  31 


CLR  < I > 
CLR ( I ) 


0.001 

0.002 

i.m 

0.050 

0.100 

8:188 

1.000 

2.000 

il:888 


XHAX  >  AHPL  «  -XHIN 


.AND. 

.AND. 

.AND. 

.AND. 

.AND. 

.AND. 

Ml 

.AND. 

.AND. 


.000  ) 
.001  > 

M  1 
.020  ) 
.050  ) 


0.001 

0.002 


0.050 

0.100 


:M  \  ftlfcs  1:111 

.500  >  AMPL-  1.000 
.000  >  AHPL-  2.000 


•  2.000 
■iSiooS 


N«w  f  r  dm  . 


OS  WRITE  (LO, 1817)  HJF(l) ,NJF<2> ,N0LF 

Sit!  M-.JlHi 
Si!!  StSliloi! 

DO  07  1-1,9 

"  w'tI  (Lo'.ilSI)  I8:tS;lS:iC*S’LH-K-L"'*c-L"-,c 
asm  88;It«Eli,H(n.r 


Label  the  existing  Trane. 


31  ZERO 


ZERO  -  0 . 

irowm  :  ;*H*L 
icol  -  a 

WRITE  U-0,1803)  BLACK < 1) ,IROW, ICOL, NUHBR , TEXT 
ICOL  -  2 

WRITE  <L0.1806>  BLACK <1), IRON, ICOL, AMPL 
IROW  -  ll 

WRJTE  1806)  BLACK ( 1 ), IROW, ICUL, ZERO 
WRITE  <LO,1806)  BLACK < l) , IROW, ICOL, AHPLM 


Piet  curve  into  frane. 


08  fcdNttNuE 

DO  10  1-1.64 
DO  09  Jl-1,21 
J  -  Jl-U 

09  IF  <  CLR(I>  .GE.  X-0.5  .AND.  CLR<I)  .LT. 
IROW  -  11-NUPDN  . . 

WrfVcC°?LOT . 1819 >  BLACK  < 1 ) , IROW , ICOL , XSXCN , NOCR 
10  WRITE  (LO, 1B17)  PLOT 

}S8l  :  V1 

CALL  CODE 

WrItI  <Lb0l4l irPLoV*"  < 1  >  » * XC0L »  X«-**«  »*** 


X+0.5  )  NUPDN  •  3 


MCE  000*  PICT*  9:57PM  SAT . ,  87  SEP.,  1980 


0374  END. 

PTN4  COMPILE*:  HP9S060-16092  REV.  1986  (790430) 
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SUBROUTINE  REWRF  < IREWR , IWHATA) 


This  subroutine  roads  (IREWR  *  -1)  or  writes  (IREWR  <■  *1)  of 
of  a  array  specified  by  IWHATA. 

Author t  Hans  H.  Zebner 

Date  Febraury  OS,  1980  . 

Detailed  program  description  is  available  in  TXCO  loa;  The 
Coment  statements  maten  to  the  flow  chart  explanations. 


•toRasa  '/a?iSfr/att6F 

COHMON  /  CONTR  /  CNTRL 

COMMON  /  CA  /A 

COMMON  /  FMP  /  IDCB, IFILE, ISIZE 

REAL  A(2Sb> 

INTEGER  IBUF( lbb4) 

INTEGER  IDCB( 144) ,  IFILE (3 ) .  ISIZE ( 2) 

INTEGER  NOLF ,NOCR (2) , ICLR (3) 

DATA  NOLF  /006S37B/ 

DATA  NOCR  /000033B, 040433B/ 

DATA  ICLR  /015524B, 015515B, D0b537B/ 

FORMATS  RI-fuiRR  (START 
L  FORMAT  (“  REURF  i  ARRAY  IBUF(lbb4)  DISC  FILE  I BUFF 


101  FORMAT  (*  REWRF  i  ARRAY  IBUF(ibb4>  DISC  FILE  I BUFF 
*:00:2b"> 

102  FORMAT  ( *  REWRF  i  DISC  FILE  IBUFF:00:2b  ARRAY  IBUF(ibb4>-) 

103  FORMAT  < ■  REWRF  i  ARRAY  CNTRL(2Sb)  DISC  FILE  CNTRLF t 00 : 2b* 

*> 

104  FORMAT  (-  REWRF  !  DISC  FILE  CNTRLF:00i2b  ARRAY  CNTRL(25h> “ 
*) 

105  FORMAT  (-  REWRF  i  ARRAY  A(25b)  DISC  FTLE  AF :00:2b-) 

10b  FORMAT  (*  REWRF  :  DISC  FILE  AF:00:2b  ARRAY  A(25b>*> 

107  FORMAT  <-  REWRF  i  ERROR  RETURN  (IWHATA  *"13")-) 

108  FORMAT  ( “I BUFF  "> 

109  FORMAT  ( -CNTRLF- ) 


109  FORMAT  ( -CNl 

110  FORMAT  CAF 


rRLF- > 


,  STOP  *',*7X "  ■  ) 

125  FORMAT  (*  CALL  WRITF  t IDCB , IERR , IBUF , -13" , -12" , "I2"> 

•  led ;  STOP “2bX" “ ) 

12b  FORMAT  (*  CALL  READF  ( IDCB, IERR , CNTRL, "13" , -12" , -12" ) 

127*^RMATS(-PCALL  WRITF  < IDCB , IERR , CNTRL, “13" , "I2* , "12“ > 
•iled]  STOP "2bX" " ) 

128  FORMAT  (-  CALL  READF  (IDCB, IERR, A, -13", -I2-, “12")  fa 


*1  STOP "27X" ■ ) 

129  FORMAT  (•  CALL  WRITF  ( IDCB, IERR , A, *13" , -12“ , “12" >  failed 
*5  STOP-2bX"-) 

130  FORMAT  (*  CALL  CL08E  (IDCB, IERR, Q>  failed)  STOP-40X*" 

») 

LI  ■  LOGLU ( 13ES8N ) 

ISECU  •  0 
ICR  *  2b 

IF  (  IWHATA  .LT.  1  .OR.  IWHATA  .CT.  2  >  GO  TO  40 
GO  TO  (10,20)  IWHATA 


failed 


C 

440  C 

441  C 

044§  8 

#444 

0445 

m 

0448 

•449 

0450 


Integer  array  IBUF  being  written  back  and  forth. 


10  CALL  CODE 

WRITE  (IFILE. 108) 

S£LV  IK#  ‘  ,  JERR  JF  ^E  jJOPTN,  ISECU ,  ICR ,  I DCB8  ) 

WRITE  (LI,  121)  IFILE, IOPTN, ISECU, ICR, IDCBS 

11  CALL  LOCF  (IDCB , IERR , IDUM , IDUM , IDUM , ISIZE ( 1) , IDUM , IDUM, ISIZE(2) > 
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74 

75 

76 

77 

1% 
0480  C 
3481  C 

n  % 

84  C 

h 

!! 

91 

92 

93 

94 

95 

96 

97 
V8 
99 


IF.  <  I  ERR 
WRITE  (LI, 
STOP  2 

12  CALL  RWNDF 
IF  (  IERR 
WRITE  (LI, 
STOP  3 

13  |SIZ£(1>  » 

Yf  <  Yli 

14  ifcv  war 

IF  (  IERR 
WRITE  <LI , 
STOP  4 

15  CALL  WRITF 
IF  <  IERR 
IF  <  IERR 
WRITE  (LI, 
STOP  5 

16  CALL  CLOSE 
IF  (  IERR 
WRITE  (LI, 
STOP  6 

17  RETURN 


.GE.  0  >  GO  TO  12 
122  > 

(IDCB, IERR) 

.GE.  0  )  GO  TO  13 

123) 

lilll(i)*lsiZE(2) 

“4  \  88  18  U 

io2> 

.GE.  0  )  GO  TO  16 

124)  IL,LEN,NUH 

( IDCB , IERR, IBUF, IL) 

.GE.  0  )  WRITE  (LI,  101) 
.GE.  0  )  GO  TO  16 

125)  IL,LEN,NUH 

(IDCB, IERR. 0) 

.GE.  0  )  do  TO  17 


Integer  array  CNTRL  being  written  back  and  forth, 


20  CALL  CODE 

yw*i0'™  •  isecu  • ic"  •  imm> 

WRITE  (LI,  121)  1FILE,I0PTN, ISECU, ICR, IDCB8 
STOP  ll 

21  CALL  LOCF  ( IDCB , IERR .IDUH , I DUN , IDUH , ISIZE ( 1 ) , 1DUN , I DUN , ISIZE ( 2 ) ) 
IF  (  IERR  .GE.  0  >  60  TO  22 

WRITE  (LI,  122) 

STOP  12 

22  CALL  RWNDF  (IDCB, IERR) 

IF  (  IERR  .GE.  0  )  GO  TO  23 

§?J?El£L1'  12>> 

23  ISIZE(l)  »  ISIZE ( 1 ) /2 

IL  *  ISIZE(1)*ISIZE(2) 

Yf  \  WSH  :f8:  4  \  88  tt8  1$ 

24  CALL  READF  ( IDCB, IERR .CNTRL. IL) 

IF  (  IERR  .GE.  0  >  &RITE  (LI ,  104) 

•  jy«g».  iiii 

25  ClPLk  AF  103) 

Kitfft!.  i»i  iliaaM 26 

STOP  IS 

26  CALL  CLOSE  ( IDCB, TERR . 0) 

K.k'ffl,  ills  0  ‘ i0 10  87 

STOP  16  - -  - - 

27  RETURN 


Real  array  A  being  written  back  and  forth. 


8  30  call’ bobt' 
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8 

C  31 


WRITE  ( 1FILE , 110 ) 

CALL  OPEN  ( IDCB, IERR . 1FILE . IOPTN, ISECU, ICR , IDCBS) 

IF?  IERR  .GE.  0  )  M  TO  Si 

WRJJE  (LI,  121)  IFILE, IOPTN, ISECU, ICR, IDCBS 


STOP  21 
CALL  LOCF 
IF  (  IERR 


< IDCB, IERR .IDUM , IDUM , IDUM,1SIZE( 1) , IDUM , IDUM ,ISIZE(2) ) 
.GE.  0  )  GO  TO  32 
122) 


C  33 
C 


C  34 
C 

8 

C  35 

8 

c 

c 

g  36 

c 

c 

C  37 


&LV  5 BBT  TO  33 

ME2^LI,  123) 

ISIZE(l)  -  ISIZE(l)/2 
IL  ■  ISIZE(1)*ISIZE(2> 

Vf  \  i«  :I8:  ;l  1  88  31 

CALL  READF  ( IDCB , IERR .A . IL) 

IF  <  IERR  .GE.  0  )  WRITE  (LI,  106) 
IF  (  IERR  .GE.  0  )  GO  TO  36 
WRITE  (LI,  128)  IL,L£N,NUM 
STOP  24 

CALL  URITF  (IDCB, IERR, A.IL) 

Vf  \  iIrr  :8I:  °o  \  105> 

WRITE  (LI,  129)  IL,L£N,NUH 
STOP  2S 

MF  liP'iWm  37 
WRITE  (LI,  130) 

STOP  26 
RETURN 


Error)  1WHATA  is  not  dofinod. 


40  mw \uy  im1  vmw 

I WHAT A  *  -IWHATA 

RETURN 

END 
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•S71 

0S72 


m 


0440 
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SUBROUTINE  RPACE  < ADCHNL,PAMO, PAIR, START, INCR, STOP, REP, AURGE,IPRXN 
*T,LO> 


Interface  program  to  trigger  HP  A/D  converted  through  pacer. 
Author:  Hans  H.  Zebner 

Date:  March  20,  19B0 

Detailed  program  description  is  available  in  TXCO  log. 


*,  Triggers  A/D  through  Pacer. 


COMMON  /  CIBUF  /  BUFR 
COMMON  /  CONTR  /  CNTRL 


INTEGER  BUFR  ( 1644 ) ,CNT<R L ( 256 ) 

INTEGER  ADCHNL ,P AMO, PAIR, START, I NCR, STOP, REP, NOLF , ICLR < 3 > , WHER E , WH 
*EREP 


DATA  NOLF  /004S37B/ 

DATA  ICLR  /015S24B, 01 5515B, 0065378/ 
DATA  MASK  /177700B/ 

DATA  FSULTC  /.1E01/ 


FORMATS3  RPACE  START 

101  FORMAT  </  9X"  ENTERED  SUBROUTINE  RPACE  < "12“ , “ II » , "12“ , "16“ , "12" , " 
«IA“. “I2-.AURGE, •II", "12") “) 

102  FORMAT  iiOX"AWRGE"3X*ICOUNT"3X‘IBLAD"lX"REP"SX"IBUF"4X"IBUF“SX-RBU 
*F"1X“BUFR  < ICOUNT ) " ) 

103  FORMAT  C "Pointer  at  *63X""A2> 

104  FORMAT  <<»  “A2)> 

_  T4trX.K7,2X  J(HiiX,K8,I8.1X,F8,<».iX,H2.A21 

OR  MAT  <  7X  ”  COMPLETED  SUbRflllTTNp  Rl*ACfc  (  fT5*  1  a*T2“*IA“  .  “12"  . 


fORMAT  (20X 


149  FORMAT  <<3A2)> 

/*s  rs  -v* 


FORMATS  FI  P  ACE  STOP 


Check  the  input  variables.  If  one  is  out  of  range,  it  is 
set  to  the  default  value.  No  warning  is  displayed. 


0  >  GO  TO  01 


Lfi'fcN+ftuW 

IF  (  IPRINT  .EG. 

wlf!  ?tl’  ilb\  ADCHML,PAMO, PAIR, START, INCR, STOP, REP, IPRIMT,LO 
IF  (  LO  '  .EG.  LI  >  GO  TO  01 

will  <t8'  4DCHNL,PAMO, PAIR, START, INCR, STOP, REP, IPRIMT,LO 

IF  (  ADChAL  .GT.  IS  .OR.  ADCHNL  .LT.  0  )  ADCHNL  ■  0 

IF  <  PAHO  .GT.  |  .OR.  PAMO  .LT.  0  >  PAHO  •  1 

'  :H:  f  -0"-  PM,‘  LT>  2  \  S*2t  :  \ 

-  >  IHCR 


If  \ 


8TART 


IF  (  INCR 
IF  <  REP 


.LT. 

.LT. 


)  REP 


Cheek  input  variables  for  logical  errors. 


■w  w 

t  8 


Get  adjusted  START  and  STOP,  depending  on  selected  PAMO. 
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GO- TO  < 03.02)  PAMO 

02  start  ■  (Start  ♦  2S6*pair>  +  iooooob 

STOP  -  (STOP  ♦  2S64PAXR)  4-  IOOOOOB 
03  IP  (  IPRINT  .ME.  0  )  GO  TO  OS 
ICOUNT  -  0 

DO  94  I -ST ART. STOP, INCR 
04  ICOUNT  -  TCOUNT+l 


s 

0684  C 
068S  C 


ICOUNT  -  TCOUNT+i 
IDIFF  -  ICOUNT 
ICORR  «  1 

IF  (  IDIFF  .GT.  64  )  CO  TO  OS 
ICORR  -  (64/IDIFF) 

ICOUNT  -  0 


Start  acquisition  loop. 


AVRGE  -  0 
UHEREP  -  1 


Vo  ioIpiR-i?SRT;I?6p/iNiRURITE  tL1« 

ICOUNT  -  ICOUNT  *  1 
WHERE  -  (IC0UNTS64) /IDIFF 

iS  TOWn^Re  GT'  UHERE,>  •*>«>• 

06  UHEREP  »  UHERE 
07  m\* ik1'  i04) 


(LI,  103)  NOLF 


IPRINT 


)  CO  TO  06 


Rapsat  A/D  conoartion  at  solactod  point  REP  tinos. 


RBUF  -  0 

BUFR( ICOUNT)  -  0 
DO  08  J-l.REP.i 

SSttf&E 

CALL  EXEC  ( 1 .20 .IBUF, 1 , ADCHNL ,0 ) 
IBUF  -  IAND( IBUF, MASK) 

RBUF  «  FLOAT ( I BUF ) /3276B .  +  RBUF 
IF  (  IPRINT  ,EQ.  0 


)  GO  TO  08 


URITE  (LI,  10S)  ICOUNT, I, J, IBUF, IBUF, RBUF, BUFR( ICOUNT), NOLF 
IF  (LO  _  .EQ.  LI  *QR.  LO  .£q.  &  >  GO  TO  08 

WRITE  (LO,  105)  ICOUNT, I, 3, IBUF, IBUF, RBUF, BUFR(ICOUNT), NOLF 


WRITE  (LO,  1 
CONTINUE 
BUFR( ICOUNT) 


(  (RBUFBFSVLTO/REP  >*10000 


AVRGE  -  AVRGE  ♦  8UFR( ICOUNT) 

IF  (  IPRINT  .EQ.  0  )  GO  TO  10 

L?ill  -LLtNl|tl  AVRGE, ICOUNT, I, REP,IBUF, IBUF, RBUF, BUFR(ICOUNT) 

IF  (  LINES  . LT .  20  >  CO  TO  09 
WRITE  (LI,  149)  (ICLR,K-1, LINES) 

W  (8L0  °  .EQ.  LI  >  CO  TO  10 

COnTI Nuk° '  l06>  AWR CE > ICOUNT , I , REP , I BUF , IBUF , R BUF , 9UFR ( ICOUNT ) 


Stsp  data  acquisition  luup. 


AVRCE  -  ( AVRCE/ICOUNT)/10000 


PAGE  001S  RPACE  9iS7  PH  SAT . ,  27  SEP.,  1980 


0723 

0724 

072S 


IF  <  IPRINT  ,£Q.  0  )  CO  TO  ii 

ti!f? 

WRITE  (LI J  107)  ADCHNL.PAHO, PAIR, START, 

*IF  <  LO  .EQ.  LI  )  GQ  TO  11 

WRITE  (LO,  107)  ADCHNL.PAHO, PAIR, START, 
*LO 


I NCR ,STOP ,REP ,AWRGE, IPRINT 
I NCR , STOP , REP , AVRGE , IPR INT 


2 


11  SPTOflNT 

WRITE  (LI, 

12  ReJuIn^1' 

END 


.NE.  0  )  SO  TO  12 
108) 

149)  ICLR 


FTN4  COMPILER t  HP92080-1A092  REV,  1928  (790430) 

*S  NO  WARNINGS  **  NO  ERRORS  **  PROGRAH  •  00973  COHHON  *  00000 


\ 
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PACE  0016  FTN. 


9iS7  PH  SAT.,  27  SEP.,  1980 


REAL  FUNCTION  SCANS  <LU,XCHAN,K> 


Close  relay  1CHAN  on  scanner  LU  and  read  the  instrument 
indicated  6y  K. 

Authort  Robert  N.  Geopfarth 

Datei  February  31,  1979 

Detailed  program  description  is  available  in  TXCO  loot  i 
variables  are: 

LU  ...  LU*  of  desired  scanner  (8  or  15) . 

ICHAN  ...  Scanner  channel  (integer). 

1C  ...  Scanner  cnannel  (ASCII). 

K  ...  Instrument  code  (  DV)H  ■  1  /  Counter  »  2  ). 


)v  K . 

Robert  N.  Geopfarth 


101*£ojj&Af**Al5ann*r  and  reads  DYH,  counter, 

301  FORHAT  <*C*) 

301  FORHAT  CT3T3") 

>01  FORHAT  CT*) 

SOI  FORHAT  («C“) 

WRITE  (  8,  801) 

WRITE  (ISilSOl) 

IC  -  ICON( ICHAN, 0) 

WRITE  (LU,  101)  IC 
CO  TO  (01,02)  K 

01  CALL  TRIGR  (10) 

READ  (10,  t)  DUH 
CALL  TRIGR  (10) 

S§A?a  *>  SCANR 

02  WRITE  (12,1201) 

READ  (12,  *)  SCANR 

03  801) 

END 


FTN4  COHPILERi  HP92060-16Q92  REV).  1926  (790430) 


**  NO  WARNINGS  **  NO  ERRORS  t*  PROCRAH  ■  00104 


COHHON  -  00000 


PAGE  0017  FTN. 


9 i 57  PH  SAT . ,  27  SEP  .  ,  1980 


0780 

0781 

0782 

87I4 

0785 

07I7 

0788 

0789 

6790 

0792 

0793 

0794 

0795 

0796 

0797 

0798 

0799 

0800 

0801 

0802 

0803 

0804 

080S 

0806 

0807 

0808 

0809 

0810 

m 

0813 


C 

C 

E 


SUBROUTINE  TIHE  < I HON , I DAY, I YEAR , I HO UR ,  IHIN, I SEC) 

G«t  dar«  and  fin*  and  convert  fh*  variables  to  ASCII 


*,  G«ts  date  and  fin*  ASCII  string.  * 

COHMON  /  CONTR  /  CNTRL 
INTEGER  ITIHE (5) 

INTEGER  CNTRL (256) 

901  FORHAT  <"  ERROR  DETECTED  IN  PROGRAH  TIHE"/ 
*  “  CALL  EXEC  <  11 , ITIHE) “/ ) 

I HON  ■  2HSS 
IDAY  »  2HS$ 

I YEAR*  2HS« 

IHOUR*  2HS* 

IHIN  -  2H9* 

I SEC  •  2HS* 

CALL  EXEC  ( 11+1 00 0QQB> ITIHE) 

GO  TO  02 
01  GO  TO  03 
02  CALL  ABREG  (I A, IB) 

GO  TO  04 

-  ICON<CNTRL< i )  ,  0  ) 

IC0N(CNTRL<3>, 0) 

IC0N(CNTRL(3> ,0) 

ICON(ITIME<4> ,0) 

IC0N(ITIHE<3) ,0) 

1C0N( ITIHE<2> ,  U  > 


03  I HON 
IDAY  * 

I YEAR  ■ 

IHOUR  « 

IHIN  « 

ISEC  > 

RETURN 

04  miw  9oi>  ia>ib 


END 


FTN4  COHPILERs  HP92060-16092  REV.  1926  (790430) 


**  NO  WARNINGS  **  NO  ERRORS  **  PROGRAH  *  00146 


COHHON  *  00000 


PACE  0018  FTN.  9sS7  PM  SAT.,  27  SEP.,  1980 


SUBROUTINE  WAIT  (TUAIT) 


Cause  a  defined  Tine  delay  of  TUAIT910  Milliseconds. 

Authors  Hans  H.  Zebner 

Date:  February  13,  1980 

Because  of  the  simplicity  of  the  program  the  proqram 
description  is  included  in  this  box. 

TUAIT  ...  Desired  time  delay  is  (TWAIT91Q)  milliseconds. 

TNOW  ...  Present  time. 

TH(5>  ...  Input  time  buffer  (required  for  EXEC  call). 

TSTOP  ...  Final  time. 


I,  Causes  a  defined  time  delay. 

,T> 


Geapfarth,  Zebner 


01  CALL  EXEC  <ii,TM) 

THOUR  »  TM(4> 

TSTOP  ■  TM< 1 )  ♦  TM( 2)9100  ♦  TM(3)96000  ♦  TUAIT 

02  CALL  EXEC  <11,TM> 

TNOU  -  1 M< 1 )  ♦  TM< 2)9100  ♦  TM(3>96000 
IF  (  TM<4)  .NE.  THOUR  >  GO  TO  01 
IF  (  TNOW  .LT.  TSTOP  )  GO  TO  02 

RETURN 

END 


FTN4  COMPILER:  HP92060-16092  REM .  1926  (790430) 

99  NO  WARNINGS  99  NO  ERRORS  99  PROGRAM  ■  00087  COMMON  ■  00000 
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8.  DATA  REDUCTION  PROGRAMS 


Three  data  reduction  programs  can  be  initiated  from 
within  the  TXCO  system.  They  are  the  following: 

(i)  Program  REDAB  (Enter  9) 

This  program  was  written  to  reduce  data  from  the 
A-B  Kulite  probe  system  following  the  method  given  in 
Ref  2,  and  outputs  distributions  of  velocity  magnitude 
and  flow  angles. 

(ii)  Program  REDCO  (Enter  10) 

This  program  reduces  survey  data  taken  with  the 
combination  temperature-pneumatic  probe  and  outputs 
distributions  of  pressure  rise,  temperature  rise,  Mach 
number,  flow  angle  and  losses. 

(iii)  Program  REDST  (Enter  11) 

This  program  reduces  data  taken  from  fixed  in¬ 
strumentation  and  outputs  the  steady-state  performance 
of  the  compressor. 

The  above  programs  are  documented  separately. 
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9.  CONCLUSIONS  AND  RECOMMENDATIONS 

The  large  quantity  and  variety  of  instrumentation  used 
in  the  transonic  compressor  test  facility  required  that  data 
acquisition  programs  be  provided  for  the  different  types  of 
data.  This  was  achieved  using  a  particular  program  structure. 
Data  reduction  programs  were  strictly  separated  but  geared  to 
the  acquisition  modules  through  the  use  of  standard  data  ar¬ 
rays.  The  data  acquisition  programs  TXC01,  TXC02  and  TXC03 
have  been  described  in  detail  and  the  operator  commands  are 
explained.  The  reduction  programs  are  to  be  documented  sepa¬ 
rately. 

The  need  for  easy-to-understand  program  control  leads 
to  a  conflict.  If  interactive  messages  which  explain  the  pro¬ 
gram  flow  and  offer  menus  giving  a  selection  of  next  logical 
steps  are  included,  this  introduces  extended  I/O  operations 
and  leads  to  long  programs  whose  speed  in  execution  is  slowed 
considerably  by  the  I/O’s.  On  the  other  hand  the  I/O's  may 
be  kept  to  a  minimum,  which  speeds  up  execution,  but  this  may 
also  lead  to  communication  gaps  between  the  program  and  the 
operator.  Since  the  research  on  the  transonic  compressor 
test  rig  is  carried  out  in  large  part  by  visiting  researchers 
and  postgraduate  students,  it  was  decided  to  program  closer 
to  the  first  alternative.  However,  a  very  useful  compromise 
was  achieved  through  the  introduction  of  the  program  control 
array.  Should  experience  in  using  the  TXCO-system  show  that 
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the  interactive  messages ,  error  processing ,  or  the  checking 
for  erroneous  operator  input  are  too  extensive,  then  the 
programs  should  certainly  be  trimmed. 

At  the  time  the  programs  were  written,  a  graphic  soft¬ 
ware  package  was  not  present  in  the  operating  system  and 
therefore  original  plotter  software  was  generated.  The 
switch  from  "home  made"  to  HP-supported  graphics  is  recom¬ 
mended  . 

Finally,  if  the  instrumentation  system  is  changed, 
corresponding  changes  can  be  introduced  into  the  appropriate 
program  module,  or  a  new  one  can  be  added.  Also,  the  same 
or  a  similar  program  system  can  easily  be  adapted  for  use  on 
any  other  test  rig  or  calibration  apparatus  in  the  laboratory 


APPENDIX  A.  DATA  ACQUISITION  WORK  SHEETS 


A.l.  Data  Locations 

A. 2.  Steady  State  Data  Array 

A. 3.  Program  Control  Array  (CNTRL) 

A. 4.  Paced  Data  Array 


A. 1 .  DATA  LOCATIONS 


WORK  SHEET:  DATA  LOCATIONS 


Port 

Scanivalve  It  1 

Scanivalve  112 

Scanner  It  1 

Scanner  #2 

Ch 

Advance  S/V  #1 

T1  A/C  nozzle 

0 

1 

PA-PA 

PA-PA 

"  "  n 

T  turb  in 

1 

2 

PCAL-PA 

PCAL-PA 

"  "  It  3 

T  turb  out  L 

2 

3 

PI  nozzle-PA 

PI  comb  pr-PA 

"  "  #4 

T  turb  out  R 

3 

4 

PI  noz  th-PA 

P23  comb  pr-PA 

"  "  #5 

T1  comp  noz  D 

4 

5 

PI  noz  fl-PA 

P4  comb  pr-PA 

Reset  S/V  It  1 

T1  comp  noz  W 

5 

6 

PBM-PA 

PT2-PA 

"  "  It  2 

T  in  sta  00 

6 

7 

PT00-PA 

PT1-PA 

"  "  If  3 

T  A4 

7 

8 

Sl-PA 

PA-PA 

"  "  H 

T  B4 

8 

9 

S2-PA 

K  eq-PA 

"  ”  #5 

T  C4 

9 

10 

S3- PA 

P  alpha-PA  Transducer  S/V  It  1 

T  cell 

10 

11 

S4-PA 

C7-PA 

"  "  It  2 

11 

12 

S5-PA 

Al-PA 

"  "  It  3 

AT  turb  L 

12 

13 

S6-PA 

Bl-PA 

"  "  #4 

AT  turb  R 

13 

14 

S7-PA 

Cl-PA 

"  "  It5 

AT  A4 

14 

15 

S8-PA 

A2-PA 

RPM  A/C 

AT  B4 

15 

16 

S9-PA 

B2-PA 

RPM  TTR 

AT  C4 

16 

17 

S 10-PA 

C2-PA 

RPM  TCR 

17 

18 

SI 1-PA 

A3-PA 

RPM  TTR 

T  In  ref  pr 

18 

19 

SI 2-PA 

B3-PA 

Blade  pass  frequ 

T  comb  ref 

19 

20 

SI 3-PA 

C3-PA 

TTR  AXF 

20 

21 

S 14-PA 

A4-PA 

TTR  CLAF 

21 

22 

S15-PA 

B4-PA 

TTR  N-Mv 

22 

23 

S 16-PA 

C4-PA 

TTR  DyTQ 

23 

24 

S17-PA 

A5-PA 

TTR  StTQ 

24 

25 

PA-PA 

B5-PA 

P  barometric 

25 

26 

PCAL-PA 

C5-PA 

PI  nozzle  comp 

26 

27 

S 18-PA 

A6-PA 

P  nozzle  comp 

27 

28 

S 19-PA 

B6-PA 

PI  nozzle  turb 

28 

29 

Hl-PA 

C6-PA 

P  nozzle  turb 

29 

30 

H2-PA 

A7-PA 

rad  pos  comb  pr 

30 

31 

H3-PA 

P  bearing-PA 

yaw  comb  pr 

31 

32 

H4-PA 

P  thrust-PA 

rad  pos  'A'  pr 

32 

33 

H5-PA 

PT  turb  in-PA 

yaw  'A'  pr 

33 

34 

H6-PA 

P  st  out  L-PA 

rad  pos  ’B'  pr 

34 

35 

H7-PA 

P  st  out  R-PA 

yaw  'B'  pr 

35 

36 

H8-PA 

PT  ro  out  L-PA 

Torque  TCR 

36 

37 

H9-PA 

PT  ro  out  R-PA 

KUL  ref  pres 

37 

38 

H10-PA 

P  ro  out  L-PA 

38 

39 

Hll-PA 

P  ro  out  R-PA 

39 

40 

Dlff  Tl-PA 

PA-PA 

wall  KUL  K6. 

40 

Port 

Scanivalve  //I 

Scanivalve  #2 

Scanner  It  1 

Scanner  #2 

Ch 
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Port 

Scanivalve  #1  Scanivalve  #2 

Scanner  #1 

Scanner  #2 

Ch 

46 

Diff  T7-PA 

wall  KUL  K10. 

46 

47 

Diff  T8-PA 

"  "  K10.5 

47 

48 

Diff  T9-PA 

"  "  Kll. 

48 

49 

"  '*  K12. 

49 

50 

50 

51 

51 

52 

'A'  KUL  pr 

52 

53 

’B'  KUL  pr 

53 

54 

54 

55 

55 

56 

56 

57 

57 

58 

58 

59 

59 

60 

60 

61 

61 

62 

62 

63 

63 

64 

64 

65 

65 

66 

66 

67 

67 

68 

68 

69 

69 

70 

70 

71 

71 

72 

72 

73 

73 

74 

74 

75 

75 

76 

76 

77 

77 

78 

78 

79 

79 
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A. 2.  STEADY  STATE  DATA  ARRAY 


WORK  SHEET  TO  DECODE  THE  DATA 
ARRAY  FOR  THE  STEADY  STATE  DATA 


File  name  convention:  raw  steady  state  data  T4RRSS 

reduced  steady  state  data  T9RRSS 

RR  =  ASCII  converted  run  # 

SS  =  file  sequential  #  from  this  run 

Note:  In  some  cases  the  letter  T  {which  stands  for  Transonic 

compressor)  may  be  changed  to  any  other  character  in 
order  to  prevent  overwriting  an  existing  data  file. 

Example:  T40503  is  the  third  data  file  from  test  run  #5,  that 
contains  steady  state  data .  The  data  reduction  pro¬ 
gram  REDST  (Reduction  steady  state  data)  creates  the 
file  T90403  to  take  the  reduced  data  from  this  run. 


Due  to  interface  bus  problems  the  data  acquisition 
program  STDY  sometimes  has  to  be  aborted,  but  may 
already  have  produced  some  valid  raw  data  files. 

When  the  program  is  restarted,  it  tries  to  write 
to  data  files,  whose  names  already  exist.  To  avoid 
purging  these  files,  the  operator  then  interactively 
changes  the  first  character  of  the  data  file  name  to 
U4Q503 ,  e.g.  The  reduced  data  of  course  are  in  file 
U90503 . 


By  the  way,  T40503  contains  good  data.  You  will 
find  this  file  in  cartridge  29  and  can  use  it  to 
get  acquainted  with  REDST. 


DATA  (48,4) 

12  3  4 


1 

1 

1 _ 

00  00  00  00 
** 


H  <N  CO  ** 

6  6  0  0 
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I 

CHI (I) 

CH2(I) 

CH3(I) 

CH4(1) 

I 

1 

PA-PA 

PA-PA 

P  barometric 

n/a 

1 

2 

PCAL-PA 

PCAL-PA 

PI  nozzle  compr 

n/a 

2 

3 

PI  nozzle-PA 

PI  comb  pr-PA 

P  nozzle  compr 

PRTT 

3 

4 

PI  noz  th-PA 

P23  comb  pr-PA 

PI  nozzle  turb 

TT1T 

4 

5 

PI  noz  fl-PA 

P4  comb  pr-PA 

P  nozzle  turb 

TT3T 

5 

6 

PBM-PA 

PT2-PA 

n/a 

DTTT 

6 

7 

PTOO-PA 

PT1-PA 

rad  pos  comb  pr 

MFLT 

7 

8 

Sl-PA 

PA-PA 

yaw  comb  pr 

HPT 

8 

9 

S2-PA 

K  eq-PA 

rad  pos  'A'  pr 

HPM 

9 

10 

S3-PA 

P  alpha-PA 

yaw  ’A'  pr 

PRCT 

10 

11 

S4-PA 

C7-PA 

rad  pos  'B'  pr 

TT1C 

11 

12 

S5-PA 

Al-PA 

yaw  'B'  pr 

TT3C 

12 

13 

S6-PA 

Bl-PA 

n/a 

DTTC 

13 

14 

S7-PA 

Cl-PA 

T1  A/C  nozzle 

MFLC 

14 

15 

S8-PA 

A2-PA 

T  turb  in 

HPC 

15 

16 

S9-PA 

B2-PA 

T  turb  out  L 

PRCTR 

16 

17 

S 10-PA 

C2-PA 

T  turb  out  R 

RPMCR 

17 

18 

SI 1-PA 

A3-PA 

n/a 

MFLCR 

18 

19 

S 12-PA 

B3-PA 

T1  comp  noz  D 

TORQCR 

19 

20 

SI 3-PA 

C3-PA 

T1  comp  noz  W 

HPMR 

20 

21 

S 14-PA 

A4-PA 

T  in  sta  00 

HPCR 

21 

22 

S 15-PA 

B4-PA 

T  out  A4 

HPTR 

22 

23 

S16-PA 

C4-PA 

T  out  B4 

EFFO 

23 

24 

S17-PA 

A5-PA 

T  out  C4 

EFF1 

24 

25 

PA-PA 

B5-PA 

T  cell 

EFF2 

25 

26 

PCAL-PA 

C5-PA 

n/a 

EFF3 

26 

27 

S18-PA 

A6-PA 

AT  turb  L 

n/a 

27 

28 

S 19-PA 

B6-PA 

AT  turb  R 

n/a 

28 

29 

Hl-PA 

C6-PA 

AT  A4 

n/a 

29 

30 

H2-PA 

A7-PA 

AT  B4 

T  in  ref  pr 

30 

31 

H3-PA 

P  bearing-PA 

AT  C4 

T  comb  ref 

31 

32 

H4-PA 

P  thrust-PA 

n/a 

n/a 

32 

33 

H5-PA 

PT  turb  in-PA 

KUL  ref  pres 

run  # 

33 

34 

H6-PA 

P  st  out  L-PA 

wall  KUL  K6. 

test  # 

34 

35 

H7-PA 

P  st  out  R-PA 

"  "  K7 . 

point  # 

35 

36 

H8-PA 

PT  ro  out  L-PA 

"  "  K8. 

day 

36 

37 

H9-PA 

PT  ro  out  R-PA 

"  "  K8.5 

month 

37 

38 

H 10-PA 

P  ro  out  L-PA 

"  "  K9. 

year 

38 

39 

Hll-PA 

P  ro  out  R-PA 

"  "  K9.5 

machine  code 

39 

40 

Diff  Tl-PA 

PA-PA 

"  "  K10. 

n/a 

40 

41 

Dlff  T2-PA 

P  diff  1-PA 

wall  KUL  K10.5 

n/a 

41 

42 

Diff  T3-PA 

P  diff  2-PA 

"  "  Kll. 

n/a 

42 

43 

Diff  T4-PA 

P  diff  3-PA 

"  "  K12. 

case  angle 

43 

44 

Diff  T5-PA 

P  diff  4-PA 

"  "  K13. 

n/a 

44 

45 

Diff  T6-PA 

P  diff  5-PA 

”  "  K14. 

n/a 

45 

46 

Diff  T7-PA 

n/a 

n/a 

RPM 

46 

47 

Diff  T8-PA 

n/a 

’A'  KUL  pr 

Torque 

47 

48 

Diff  T9-PA 

n/a 

'B*  KUL  pr 

n/a 

48 

I 

CHI (I) 

CH2(1) 

CH3(I) 

CH4(I) 

I 
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A.  3.  PROGRAM  CONTROL  ARRAY  (CNTRL) 


WORK 


CNTRL(l) 
CNTRL(2) 
CNTRL (3) 
CNTRL (4) 
CNTRL (5) 
CNTRL(6) 
CNTRL (13) 
CNTRL (19) 
CNTRL (20) 
CNTRL (21) 
CNTRL (2 2) 
CNTRL (30) 
CNTRL (31) 
CNTRL(32) 
CNTRL(33) 
CNTRL (34) 
CNTRL (36) 

CNTRL (37) 

CNTRL (39) 

CNTRL  (40) 

CNTRL (41) 
CNTRL(42) 
CNTRL(50) 


CNTRL(61) 
CNTRL(62) 
CNTRL(63) 
CNTRL(64) 
CNTRL(65) 
CNTRL(71) 
CNTRL (72) 


SHEET  TO  DECODE/ENCODE  THE  CONTROL  ARRAY  CNTRL: 


:  Month  of  the  test  run. _ 

:  Day  of  the  test  run. _ 

:  Year  of  the  test  run. _ 

:  Test  run  #. _ _ 

:  Test  #  of  this  run. _ 

:  Point  //  of  this  test. _ 

:  Machine  Code. _ _ 

:  LU//  of  the  standard  interactive  input  device. _ 

:  LU//  of  the  standard  output  device. _ 

:  LU#  of  the  optional  output  device. _ 

:  LU//  of  the  plotter. _ 

:  Cartridge  reference  #  for  data  files. _ 

:  Security  code  for  data  files. _ 

:  First  and  second  character  of  data  file  name;  IFILE(l) 
:  Third  and  fourth  character  of  data  file  name;  IF1LE(2) 
:  Fifth  and  sixth  character  of  data  file  name;  IFILE(3) 
:  Initializes  fast  steady  state  data  reduction  run, 

if  set  to  1. _ _ 

:  Suppresses  printing  of  heading  in  subroutines  FREER 
and  PACER,  if  set  to  1. 

:  Suppresses  creating/opening  and  closing  of-  files  in 

subroutines  FREER  and  PACER,  if  set  to  1. _ 

:  Suppresses  analog  output  of  just  acquired  paced  run 

data  to  terminal,  if  set  to  1. _ 

:  100*Factor  to  vary  size  in  X-direction  of  a  drawing. 

:  100*Factor  to  vary  size  in  Y-direction  of  a  drawing. 

:  Indicates  the  son  program  to  be  scheduled  and  the 
subroutine  to  be  called  therefrom. 


01 

Schedule 

TXC01 

and 

call 

ABSRV 

02 

19 

ii 

•  1 

n 

CALIB 

03 

If 

•i 

II 

ii 

FREER 

04 

II 

ti 

II 

n 

PACER 

05 

Schedule 

TXC02 

and 

call 

COMB 

06 

it 

ii 

II 

II 

STDY 

07 

Schedule 

TXC03 

and 

call 

CHECK 

08 

ii 

ii 

II 

II 

CHNGE 

09 

Schedule 

REDAB 

10 

Schedule 

REDC0 

11 

Schedule 

REDST. 

Number  of  S/V  controller  #1. 
Number  of  S/V  controller  #11. 
Number  of  S/V  controller  till. 
Number  of  S/V  controller  # IV.~ 
Number  of  S/V  controller  #V. 
LU#  of  scanner  #1. 

LU#  of  scanner  i/2. _ 
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CNTRL(212) 

Accounting  variable  subroutine  ABSRV:  output  page  it. 

CNTRL(213) 

H  II  II 

ABSRV:  current  file  it. 

CNTRL(214) 

It  M  II 

CALIB:  output  page  it. 

CNTRL(215) 

II  It  II 

CALIB:  current  file  it. 

CNTRL(216) 

It  II  II 

FREER:  output  page  it. 

CNTRL(217) 

It  II  II 

FREER:  current  file  it. 

CNTRL(218) 

II  II  II 

PACER:  output  page  it. 

CNTRL(219) 

II  II  fl 

PACER:  current  file  it. 

CNTRL(221) 

Blade  pair  (1  -  9),  if  Pacer  is  operated  in  Mode  2. 

CNTRL(222) 

Start  count  for  data  acquisition  using  Pacer  encode. 

CNTRL(223) 

Increment  for  data  acquisition  using  Pacer  encode. 

CNTRL(224) 

Stop  count  for  data  acquisition  using  Pacer  encode. 

CNTRL(225) 

il  of  repetitions  at  each  location  in  blade  passage. 

CNTRL(230) 

Total  it  of  high  speed  data  acquisitions  either  in  free 
or  in  paced  run  mode  to  be  taken. 

CNTRL(231) 

A/D  input  channel  for  KULITE  type  'A'  probe. 

CNTRL(232) 

II  II  II  II  II 

"  ’B'  probe. 

CNTRL(235) 

"  "  ”  "  wall 

KULITE  K6. 

CNTRL(236) 

II  II  II  II  II 

"  K7. 

CNTRL(237) 

II  II  II  II  fl 

"  K8. 

CNTRL(238) 

II  II  II  II  II 

"  K8.5. 

CNTRL(239) 

ii  ti  n  it  ii 

"  K9. 

CNTRL(240) 

II  II  II  II  II 

"  K9.5. 

CNTRL(241) 

II  II  It  II  It 

"  K10. 

CNTRL(242) 

II  II  II  II  II 

"  K10.5. 

CNTRL(243) 

ii  ii  ii  ii  ii 

"  Kll. 

CNTRL(244) 

II  II  II  II  II 

"  K12. 

CNTRL(245) 

Ti"" ""  Ii  H  fj  ri 

"  K13. 

CNTRL(246) 

II  II  II  II  II 

"  K14. 

CNTRL(249) 

Character  used  for  analog  display  in  subroutine  PICTR. 

CNTRL(250) 

it  of  multiples  of  10ms  for 

S/V  controller  time  delay. 

CNTRL(251) 

Total  it  of  free  run  measurements  (max.  1664). 
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APPENDIX  B.  LINEAR  APPROXIMATION  BY 
METHOD  OF  LEAST  SQUARES 


Data :  Xi  and  Y±  ;  i  »  1, . . . ,NPNTSI 
Equation :  Y  *  +  C2*X 


Difference  for  Each  Data  Point:  R^  *  Yi~f(xi)  ;  i-1, . . . ,NPNTSI 

NPNTSI  NPNTSI 

Sum  of  Squares  of  Difference*:  R  -  £  R^  »  -  (Ci+C2*xj.)}2 

i-1  i-1 

The  value  of  R  depends  on  the  values  of  the  coefficients 
and  C2'  In  order  to  determine  a  minimum  value  for  R,  the 
expression  for  R  is  partially  differentiated  with  respect  to 
and  C2  and  the  two  derivatives  are  equated  to  zero.  Dif¬ 
ferentiating  , 


NPNTSI 

|§r-  I  2  •  K  -  <=x  + 

1  i-1 


(-1) 


and 
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NPNTSI 

5§r  *  l  2  '  [Yi  -  (ci  ♦  <Vxi>]  •  <-Xi> 

Setting  each  expression  to  zero, 

NPNTSI 

*  l  (Y.  -  Cr  -  C2*X.)  =  0 
i«l 

NPNTSI 

I  {Yi‘xi  “  <VXi  "  C2*Xi2)  "  0 

i-1 

This  gives  two  equations  in  which  and  C2  are  the  only 
unknowns.  Omitting  the  limits  of  summation  for  simplicity, 

K  ♦  i=2xi  * 

tv t +  tv  *  -  Ivxi 

or,  in  matrix  notation  (note  that  and  C2  are  constants) 


NPNTSI 

Ixi 

• 

C1 

Iyi 

Ixi 

Ixi2 

C2 

Iy  ixi 

or 

A  •  C  »  B 

The  components  of  the  matrix  C  are  obtained  using 

all  *  "*KK 

*12  “  *21  "  t* 1 

*22  *  Ixl2 
bl  -  Iyi 
b2  ’  IVXi 


271 


all  a12  alla22  "  a12 

a12  a22 

C-,  *  allb2  "  a12bl 

j— 

alla22  "  a12 

c.  -  -  l* Xi> 

NPNTSI*^Xi  -  (IXi) 
c  ,  NPNTSI*I(Yi*Xi)  -  IVlY. 
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